8.8 Polylogarithm function.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    489015,      10217]
NotebookOptionsPosition[    475457,       9865]
NotebookOutlinePosition[    477023,       9917]
CellTagsIndexPosition[    476980,       9914]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[StyleBox["Rules for integrands involving \
polylogarithms",
  FontFamily->"Arial"]], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5758457803910656`*^9, 
   3.5758457938510847`*^9}, {3.5758458780912023`*^9, 
   3.5758458797312045`*^9}, {3.5758460250714083`*^9, 3.575846028691413*^9}, {
   3.5758461031815176`*^9, 3.575846103681518*^9}, {3.5758463018517957`*^9, 
   3.5758463042917986`*^9}, {3.5758464155019546`*^9, 3.575846417191957*^9}, {
   3.5758468610025787`*^9, 3.5758468696025906`*^9}, {3.5758469815427475`*^9, 
   3.5758469940427647`*^9}, {3.575847092102902*^9, 3.575847093372904*^9}, {
   3.5758472070230627`*^9, 3.5758472111630683`*^9}, {3.5758472852931724`*^9, 
   3.5758472911731806`*^9}, {3.5758474596134167`*^9, 3.575847470223431*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, {3.574980675249539*^9, 
   3.574980681749548*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, {3.574980675249539*^9, 
   3.574980681749548*^9}, {3.7252134518647103`*^9, 3.725213458358082*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749804829792695`*^9, 3.5749804877192764`*^9}, {3.5749806853595533`*^9, 
   3.574980685549553*^9}, 3.7252134618092794`*^9, {3.7252137909691057`*^9, 
   3.725213793197233*^9}, {3.731868226925727*^9, 3.7318682273087487`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation:  Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494440828745641*^9, 3.4944627818413305`*^9}],

Cell[TextData[{
 "Note:  This rule not necessary for host systems, like ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", that automatically simplify ",
 Cell[BoxData[
  RowBox[{"PolyLog", "[", 
   RowBox[{"1", ",", "z"}], "]"}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
    3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
    3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
    3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
    3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
    3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
    3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
    3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
    3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
    3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
    3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
     3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
    3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
    3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
    3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
    3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
    3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
    3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
    3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
    3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
    3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
    3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
    3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
    3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
    3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
    3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
    3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
    3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
    3.5749804829792695`*^9, 3.5749804877192764`*^9}, {3.5749806853595533`*^9, 
    3.574980685549553*^9}, 3.7252134618092794`*^9},
  FontSize->12,
  FontWeight->"Bold"],
 " to ",
 Cell[BoxData[
  RowBox[{"-", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "-", "z"}], "]"}]}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
    3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
    3.4941724567488375`*^9, 3.4944391698033185`*^9, {3.4944393463335657`*^9, 
    3.4944393633235893`*^9}, 3.4944394680437365`*^9, 3.4944402029647655`*^9, 
    3.4944402360048113`*^9, 3.4944403327949467`*^9, 3.494440636445372*^9, {
    3.494440871455701*^9, 3.4944409024857445`*^9}, {3.494462864552676*^9, 
    3.494462893646727*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494440828745641*^9, 3.4944627818413305`*^9, {3.7252134984613757`*^9, 
   3.725213582946208*^9}, {3.7318679659538*^9, 3.7318680248791704`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.725213834167577*^9, 3.7252138344445925`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "x"}]}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}]}], "+", 
  RowBox[{"p", " ", "q", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, {3.4944393463335657`*^9, 
   3.4944393633235893`*^9}, 3.4944394680437365`*^9, 3.4944402029647655`*^9, 
   3.4944402360048113`*^9, 3.4944403327949467`*^9, 3.494440636445372*^9, {
   3.494440871455701*^9, 3.4944409024857445`*^9}, {3.494462864552676*^9, 
   3.494462893646727*^9}, {3.7252135961049604`*^9, 3.725213629295859*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"a_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b_.", "*", 
           RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "*", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"a", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}]}], " ", 
     "+", " ", 
     RowBox[{"p", "*", "q", "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"1", "-", 
          RowBox[{"a", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], ",", 
        "x"}], "]"}]}]}], " ", "/;", "\n", 
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p", ",", "q"}], "}"}], ",", "x"}], 
     "]"}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439288643485*^9, 3.494440114764642*^9, 3.4944404118050575`*^9, 
   3.4944407868855824`*^9, 3.4944627965521564`*^9, 3.548733463081569*^9, 
   3.548733507176091*^9, {3.7094837662478094`*^9, 3.709483777740467*^9}, 
   3.7252136528072033`*^9, {3.7252136969107265`*^9, 3.7252137202850633`*^9}, {
   3.725213797099457*^9, 3.725213802019738*^9}, {3.731866034242313*^9, 
   3.731866039281601*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749804829792695`*^9, 3.5749804877192764`*^9}, {3.5749806853595533`*^9, 
   3.574980685549553*^9}, {3.7252134618092794`*^9, 3.7252134890148354`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation:  Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494440828745641*^9, 3.4944627818413305`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "x"}]}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}]}], "-", 
  RowBox[{"p", " ", "q", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "-", "1"}], ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, {3.4944393463335657`*^9, 
   3.4944393633235893`*^9}, 3.4944394680437365`*^9, 3.4944402029647655`*^9, 
   3.4944402360048113`*^9, 3.4944403327949467`*^9, 3.494440636445372*^9, {
   3.494440871455701*^9, 3.4944409024857445`*^9}, {3.494462864552676*^9, 
   3.494462893646727*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"a_.", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b_.", "*", 
          RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}]}], " ", 
    "-", " ", 
    RowBox[{"p", "*", "q", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"PolyLog", "[", 
        RowBox[{
         RowBox[{"n", "-", "1"}], ",", 
         RowBox[{"a", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p", ",", "q"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439288643485*^9, 3.494440114764642*^9, 3.4944404118050575`*^9, 
   3.4944407868855824`*^9, 3.4944627965521564`*^9, 3.548733463081569*^9, 
   3.548733507176091*^9, {3.7094837662478094`*^9, 3.709483777740467*^9}, {
   3.7252137021740274`*^9, 3.725213730917671*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980499279292*^9, 3.574980503629298*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494462813134986*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "<", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.4944628353494244`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"x", " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "+", "1"}], ",", 
          RowBox[{"a", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"b", " ", 
              SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}], 
       RowBox[{"p", " ", "q"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"p", " ", "q"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "+", "1"}], ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4944393492135696`*^9, 3.494439366993595*^9}, 
   3.4944395044737873`*^9, 3.494440205154768*^9, 3.494440258444843*^9, 
   3.4944403380849543`*^9, 3.494440511185197*^9, {3.4944406020953236`*^9, 
   3.4944406032253256`*^9}, 3.494440650915392*^9, 3.4944408824057164`*^9, 
   3.494440923525774*^9, 3.494462866377879*^9, 3.494462916890768*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"a_.", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b_.", "*", 
          RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "+", "1"}], ",", 
        RowBox[{"a", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"p", "*", "q"}], ")"}]}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"p", "*", "q"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"PolyLog", "[", 
        RowBox[{
         RowBox[{"n", "+", "1"}], ",", 
         RowBox[{"a", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p", ",", "q"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494439298133498*^9, 
   3.494440123504654*^9, 3.4944404180850663`*^9, {3.4944405683652763`*^9, 
   3.4944405833952975`*^9}, 3.4944407934755917`*^9, 3.494462802386567*^9, 
   3.548733467303811*^9, 3.5487335119323635`*^9, {3.709483781550685*^9, 
   3.7094837882330675`*^9}, {3.725213736151971*^9, 3.7252137366549997`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["U:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749804829792695`*^9, 3.5749804877192764`*^9}, {3.5749806853595533`*^9, 
   3.574980685549553*^9}, {3.7249725619177294`*^9, 3.7249725674420457`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, 
   3.724972642966365*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"PolyLog", "[", 
    RowBox[{"n", ",", 
     RowBox[{"a", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"PolyLog", "[", 
        RowBox[{"n", ",", 
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, {3.4944393463335657`*^9, 
   3.4944393633235893`*^9}, 3.4944394680437365`*^9, 3.4944402029647655`*^9, 
   3.4944402360048113`*^9, 3.4944403327949467`*^9, 3.494440636445372*^9, {
   3.494440871455701*^9, 3.4944409024857445`*^9}, {3.494462864552676*^9, 
   3.494462893646727*^9}, 3.724972586508136*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"a_.", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b_.", "*", 
          RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "n", ",", "p", ",", "q"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439288643485*^9, 3.494440114764642*^9, 3.4944404118050575`*^9, 
   3.4944407868855824`*^9, 3.4944627965521564`*^9, 3.548733463081569*^9, 
   3.548733507176091*^9, {3.7094837662478094`*^9, 3.709483777740467*^9}, {
   3.7249726000779123`*^9, 3.724972612662632*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, {3.574980675249539*^9, 
   3.574980681749548*^9}, {3.5749807734696765`*^9, 3.5749807759096794`*^9}, {
   3.724966589658136*^9, 3.7249665950144424`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"PolyLog", "[", 
       RowBox[{"n", ",", 
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805119993105`*^9, 3.574980516049316*^9}, {3.574980820849743*^9, 
   3.5749808237897468`*^9}, 3.574980885969834*^9, {3.574981929731295*^9, 
   3.574981935641303*^9}, {3.5749819923313828`*^9, 3.5749820150614147`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Primitive rule", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494441191516149*^9, 3.4944411920661497`*^9}, 
   3.494463053547008*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"\[PartialD]", 
      TemplateBox[{"n","z"},
       "PolyLog"]}], 
     RowBox[{"\[PartialD]", "z"}],
     MultilineFunction->None], "=", 
    FractionBox[
     TemplateBox[{RowBox[{"n", "-", "1"}],"z"},
      "PolyLog"], "z"]}], TraditionalForm]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.494439653543996*^9}, 
   3.494440010294495*^9, {3.4944404285250807`*^9, 3.4944404324350863`*^9}, {
   3.494440468745137*^9, 3.49444047076514*^9}, 3.494440852155674*^9, {
   3.494441154266097*^9, 3.494441157946102*^9}, 3.4944630909246736`*^9}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.5505965573769345`*^9, 3.550596558628006*^9}, {3.550604016005364*^9, 
   3.550604016005364*^9}, 3.574981977011361*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "+", "1"}], ",", 
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
      RowBox[{"p", " ", "q"}]]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, {3.4944393463335657`*^9, 
   3.4944393633235893`*^9}, 3.4944394680437365`*^9, {3.4944412518762336`*^9, 
   3.494441273186263*^9}, {3.494463807599717*^9, 3.4944638371197586`*^9}, {
   3.5518277237299776`*^9, 3.5518277254299803`*^9}, {3.5518277655000362`*^9, 
   3.5518277730000467`*^9}, {3.551827831260128*^9, 3.5518278335901313`*^9}, {
   3.551827952140297*^9, 3.551827955360302*^9}, {3.5518280130703826`*^9, 
   3.551828070220463*^9}, {3.5518281059205127`*^9, 3.5518281062705135`*^9}, {
   3.551828206930654*^9, 3.5518282096906576`*^9}, {3.5518282465007095`*^9, 
   3.551828247570711*^9}, {3.574981953171328*^9, 3.574981964801344*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a_.", "+", 
           RowBox[{"b_.", "*", "x_"}]}], ")"}], "^", "p_."}]}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{
      RowBox[{"n", "+", "1"}], ",", 
      RowBox[{"c", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"e", "*", "p"}], ")"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"b", "*", "d"}], ",", 
      RowBox[{"a", "*", "e"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439288643485*^9, 3.4944410948660135`*^9, 3.494462978308076*^9, {
   3.551828321860815*^9, 3.5518284039009295`*^9}, 3.706141560568207*^9, 
   3.7094837959985113`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", 
       RowBox[{"a_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b_.", "*", 
           RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{
      RowBox[{"n", "+", "1"}], ",", 
      RowBox[{"a", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"p", "*", "q"}], ")"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "n", ",", "p", ",", "q"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439288643485*^9, 3.4944410948660135`*^9, 3.494462978308076*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, {3.574980675249539*^9, 
   3.574980681749548*^9}, {3.5749807734696765`*^9, 3.5749807759096794`*^9}, {
   3.574982012361411*^9, 3.5749820232314262`*^9}, 3.724966630690483*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805223193245`*^9, 3.5749805329293394`*^9}, {3.5749807891296983`*^9, 
   3.574980789349698*^9}, {3.5749820269214315`*^9, 3.574982052551467*^9}, 
   3.7249666330416174`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944413528063745`*^9, 3.4944413704964*^9}, {
   3.4944639766599536`*^9, 3.4944639862999673`*^9}, {3.574980525219329*^9, 
   3.5749805278093324`*^9}, {3.574982058411475*^9, 3.574982058411475*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{"n", ",", 
          RowBox[{"a", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"b", " ", 
              SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"p", " ", "q"}], 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "-", "1"}], ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4944393492135696`*^9, 3.494439366993595*^9}, 
   3.4944395044737873`*^9, {3.4944412966462965`*^9, 3.4944413255163364`*^9}, 
   3.4944631289419403`*^9, 3.4944639664899397`*^9, {3.7249666354377546`*^9, 
   3.724966646367379*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", 
       RowBox[{"a_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b_.", "*", 
           RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"n", ",", 
        RowBox[{"a", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{"p", "*", 
     RowBox[{"q", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "*", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "-", "1"}], ",", 
          RowBox[{"a", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "d", ",", "m", ",", "p", ",", "q"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494439298133498*^9, 
   3.4944411032260256`*^9, 3.494462988260893*^9, 3.5487334708420134`*^9, 
   3.5487335171476617`*^9, {3.574982063911483*^9, 3.574982065681485*^9}, 
   3.7061416273383007`*^9, {3.70948384545534*^9, 3.709483859592149*^9}, {
   3.7249666526797404`*^9, 3.72496668326749*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980541019351*^9, 3.5749805558193717`*^9}, 3.5749820278314323`*^9, {
   3.5749820796415052`*^9, 3.57498208322151*^9}, 3.724966759584855*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.4944413869064226`*^9, 3.4944413884864244`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944413528063745`*^9, 3.4944413704964*^9}, {
   3.4944414508265123`*^9, 3.4944414523765144`*^9}, {3.4944640040799923`*^9, 
   3.4944640158600087`*^9}, {3.5749805465593586`*^9, 3.574980548619362*^9}, {
   3.574982088271517*^9, 3.574982088271517*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "+", "1"}], ",", 
          RowBox[{"a", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"b", " ", 
              SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}], 
       RowBox[{"d", " ", "p", " ", "q"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], 
    RowBox[{"p", " ", "q"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "+", "1"}], ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944393519535737`*^9, {3.4944398753843064`*^9, 
   3.494439898614339*^9}, 3.494441298476299*^9, 3.494441429966483*^9, 
   3.4944631327015467`*^9, 3.494464044490049*^9, 3.7249667619619913`*^9, {
   3.724966825429621*^9, 3.7249668297858706`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", 
       RowBox[{"a_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b_.", "*", 
           RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "+", "1"}], ",", 
        RowBox[{"a", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", "p", "*", "q"}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"p", "*", "q"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "*", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "+", "1"}], ",", 
          RowBox[{"a", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "d", ",", "m", ",", "p", ",", "q"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, {3.494439298133498*^9, 
   3.4944393224735327`*^9}, 3.494441111366037*^9, 3.494462995967307*^9, 
   3.548733473601171*^9, 3.548733522640976*^9, {3.574982092501523*^9, 
   3.574982094041525*^9}, 3.7061416273683004`*^9, {3.7094838645704336`*^9, 
   3.7094838766851263`*^9}, 3.724966749653287*^9, {3.7249667950628843`*^9, 
   3.7249668152960415`*^9}, {3.7249668690911183`*^9, 3.7249668694381385`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["U:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749804829792695`*^9, 3.5749804877192764`*^9}, {3.5749806853595533`*^9, 
   3.574980685549553*^9}, {3.7249725619177294`*^9, 3.7249725674420457`*^9}, {
   3.7249727286642666`*^9, 3.724972728988285*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, 
   3.724972642966365*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
   RowBox[{"PolyLog", "[", 
    RowBox[{"n", ",", 
     RowBox[{"a", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"n", ",", 
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, {3.4944393463335657`*^9, 
   3.4944393633235893`*^9}, 3.4944394680437365`*^9, 3.4944402029647655`*^9, 
   3.4944402360048113`*^9, 3.4944403327949467`*^9, 3.494440636445372*^9, {
   3.494440871455701*^9, 3.4944409024857445`*^9}, {3.494462864552676*^9, 
   3.494462893646727*^9}, 3.724972586508136*^9, {3.7249727308413916`*^9, 
   3.7249727335905485`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", 
       RowBox[{"a_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b_.", "*", 
           RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"n", ",", 
        RowBox[{"a", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "d", ",", "m", ",", "n", ",", "p", ",", "q"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439288643485*^9, 3.494440114764642*^9, 3.4944404118050575`*^9, 
   3.4944407868855824`*^9, 3.4944627965521564`*^9, 3.548733463081569*^9, 
   3.548733507176091*^9, {3.7094837662478094`*^9, 3.709483777740467*^9}, {
   3.7249726000779123`*^9, 3.724972612662632*^9}, {3.7249727365087156`*^9, 
   3.724972755067777*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "m"]}], "]"}], "r"], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"n", ",", 
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"r", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749806406994905`*^9, 3.5749806449694967`*^9}, 3.5749811826402493`*^9, {
   3.5749812666803665`*^9, 3.574981296110408*^9}, 3.5749813273204517`*^9, 
   3.574981401840556*^9, {3.5749814386706076`*^9, 3.574981439580609*^9}, {
   3.574981638040887*^9, 3.5749816564309125`*^9}, {3.574981835201163*^9, 
   3.574981835441163*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"r", ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.494464706890976*^9, 
   3.4944647103409805`*^9}, {3.574981442610613*^9, 3.574981442610613*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "m"]}], "]"}], "r"], " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"n", ",", 
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}], "x"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "m"]}], "]"}], "r"], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "+", "1"}], ",", 
          RowBox[{"a", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"b", " ", 
              SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}], 
       RowBox[{"p", " ", "q"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", " ", "r"}], 
    RowBox[{"p", " ", "q"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "m"]}], "]"}], 
        RowBox[{"r", "-", "1"}]], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{
         RowBox[{"n", "+", "1"}], ",", 
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "p"]}], ")"}], "q"]}]}], "]"}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.4944644333605933`*^9, 3.494464454030622*^9}, 3.494464726361003*^9, 
   3.494464757001046*^9, {3.494885467081205*^9, 3.494885480731229*^9}, 
   3.574980633779481*^9, {3.5749811878702564`*^9, 3.574981189900259*^9}, {
   3.574981267610368*^9, 3.574981300540414*^9}, {3.5749813336504602`*^9, 
   3.5749813363404646`*^9}, {3.574981402370557*^9, 3.5749814033705583`*^9}, {
   3.5749814434706144`*^9, 3.574981446130618*^9}, {3.574981527560732*^9, 
   3.574981534880742*^9}, {3.5749815900908194`*^9, 3.574981594090825*^9}, 
   3.574981815311135*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "m_."}]}], "]"}], "^", "r_."}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"n_", ",", 
        RowBox[{"a_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b_.", "*", 
            RowBox[{"x_", "^", "p_."}]}], ")"}], "^", "q_."}]}]}], "]"}], "/",
       "x_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "m"}]}], "]"}], "^", "r"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "+", "1"}], ",", 
        RowBox[{"a", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"p", "*", "q"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"m", "*", 
     RowBox[{"r", "/", 
      RowBox[{"(", 
       RowBox[{"p", "*", "q"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "m"}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"r", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"PolyLog", "[", 
          RowBox[{
           RowBox[{"n", "+", "1"}], ",", 
           RowBox[{"a", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"b", "*", 
               RowBox[{"x", "^", "p"}]}], ")"}], "^", "q"}]}]}], "]"}], "/", 
         "x"}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "m", ",", "n", ",", "q", ",", "r"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"r", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4944644058605547`*^9, 3.494464698950965*^9, 3.548733490630145*^9, 
   3.548733549915536*^9, {3.574981686090954*^9, 3.574981734821022*^9}, 
   3.574981787341096*^9, {3.709483889035833*^9, 3.709483896107237*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts and algebraic expansion\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318704384652195`*^9, 3.7318704431914897`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "p", " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "-", "1"}], ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}], 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}]}]]}]],
  CellChangeTimes->{{3.7318702994972706`*^9, 3.7318703380224743`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.731870347443013*^9, 3.73187035613951*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["x", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", "b"], "-", 
    FractionBox["a", 
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}]}]]}]}]],
  CellChangeTimes->{{3.7318702994972706`*^9, 3.7318703380224743`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.731870347443013*^9, 3.73187035613951*^9}, {
   3.7318707623187428`*^9, 3.7318707623187428`*^9}, {3.731870818864977*^9, 
   3.731870818864977*^9}, {3.731878897693659*^9, 3.731878897693659*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "\[IndentingNewLine]", "  ", "x"}]}], 
    " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}]}], "-", 
  RowBox[{"b", " ", "p", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"x", " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{
         RowBox[{"n", "-", "1"}], ",", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", "x"}]}], 
     " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}]}]}], "-", 
  RowBox[{"p", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "-", "1"}], ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{"a", " ", "p", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "-", "1"}], ",", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, {3.7318706466341257`*^9, 3.7318706854203444`*^9}, {
   3.7318708729030676`*^9, 3.731870918597681*^9}, {3.7318785988215637`*^9, 
   3.731878603492831*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"c_.", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}], "^", "p_."}]}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"c", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{"p", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"PolyLog", "[", 
        RowBox[{
         RowBox[{"n", "-", "1"}], ",", 
         RowBox[{"c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}], ",", 
       "x"}], "]"}]}], " ", "+", "\n", "  ", 
    RowBox[{"a", "*", "p", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "-", "1"}], ",", 
          RowBox[{"c", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "p"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.705193477493099*^9, 
   3.7051935119800715`*^9}, {3.7094847510211353`*^9, 
   3.7094847670150504`*^9}, {3.7094848098525004`*^9, 3.709484810130516*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.705193477493099*^9, 
   3.7051935119800715`*^9}, {3.7094848169019036`*^9, 3.7094848187030067`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.705193477493099*^9, 
   3.7051935119800715`*^9}, {3.7094848169019036`*^9, 
   3.7094848187030067`*^9}, {3.7319512237236114`*^9, 3.7319512298769636`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", " ", "d"}], "-", 
           RowBox[{"a", " ", "e"}]}], ")"}]}], "+", "e"}], "\[Equal]", 
       "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980571819394*^9, 3.5749805976594305`*^9}, 3.574980913369872*^9, {
   3.702100150560342*^9, 3.702100150934742*^9}, {3.7051872108378224`*^9, 
   3.705187229700901*^9}, {3.705187448244401*^9, 3.7051874655953937`*^9}, 
   3.70528614305589*^9, {3.705286333685794*^9, 3.705286335758912*^9}, 
   3.709484819720065*^9, {3.7319512320660887`*^9, 3.7319512796888123`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "d"}], "-", 
       RowBox[{"a", " ", "e"}]}], ")"}]}], "+", "e"}], "\[Equal]", "0"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
    3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
    3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
    3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
    3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
    3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
    3.4948854565823865`*^9}, {3.702100067709195*^9, 3.702100070486*^9}, {
    3.7051872411225543`*^9, 3.7051872463588543`*^9}, {3.70518739245221*^9, 
    3.7051874166945963`*^9}, {3.705280519000825*^9, 3.705280575439053*^9}, 
    3.705280620726643*^9},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"a", " ", "c"}], "-", 
       RowBox[{"b", " ", "c", " ", "x"}]}], "]"}], "e"]}]}]],
  CellChangeTimes->{{3.731951743941366*^9, 3.7319517740940905`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7319517337527833`*^9, 3.73195173475084*^9}, {
   3.731951780498457*^9, 3.7319518051248655`*^9}, {3.7319535020769258`*^9, 
   3.7319535020769258`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], "\[Equal]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"b", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"1", "-", 
        RowBox[{"a", " ", "c"}], "-", 
        RowBox[{"b", " ", "c", " ", "x"}]}], "]"}]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}]]}]}]],
  CellChangeTimes->{{3.731951743941366*^9, 3.7319517740940905`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7319517337527833`*^9, 3.73195173475084*^9}, 
   3.731951780498457*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "d"}], "-", 
       RowBox[{"a", " ", "e"}]}], ")"}]}], "+", "e"}], "\[Equal]", "0"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
    3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
    3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
    3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
    3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
    3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
    3.4948854565823865`*^9}, {3.702100067709195*^9, 3.702100070486*^9}, {
    3.7051872411225543`*^9, 3.7051872463588543`*^9}, {3.70518739245221*^9, 
    3.7051874166945963`*^9}, {3.705280519000825*^9, 3.705280575439053*^9}, 
    3.705280620726643*^9},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.5749805800494056`*^9, 
   3.574980583929411*^9}, {3.7051874566758833`*^9, 3.7051874571659117`*^9}, {
   3.7319512959457426`*^9, 3.7319513110546064`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], " ", 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"1", "-", 
          RowBox[{"a", " ", "c"}], "-", 
          RowBox[{"b", " ", "c", " ", "x"}]}], "]"}], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], "e"]}]}]}]}], "+", 
  RowBox[{
   FractionBox["b", "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", " ", "c"}], "-", 
         RowBox[{"b", " ", "c", " ", "x"}]}], "]"}], "2"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
   3.4948854565823865`*^9}, {3.702100067709195*^9, 3.702100070486*^9}, {
   3.7051872411225543`*^9, 3.7051872463588543`*^9}, {3.70518739245221*^9, 
   3.7051874166945963`*^9}, {3.705280519000825*^9, 3.705280575439053*^9}, 
   3.705280620726643*^9, {3.7319515616219378`*^9, 3.7319515666272244`*^9}, {
   3.731951626406644*^9, 3.731951635809181*^9}, {3.7319523336180935`*^9, 
   3.731952336625266*^9}, 3.731952452629901*^9, 3.7319524850297537`*^9, {
   3.7319525230779305`*^9, 3.731952524715024*^9}, 3.7319527581963787`*^9, {
   3.7319530924834986`*^9, 3.731953097493785*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"a", "*", "c"}], "-", 
       RowBox[{"b", "*", "c", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", "*", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], "/", "e"}]}], " ", 
    "+", " ", 
    RowBox[{
     RowBox[{"b", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"1", "-", 
           RowBox[{"a", "*", "c"}], "-", 
           RowBox[{"b", "*", "c", "*", "x"}]}], "]"}], "^", "2"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "*", "d"}], "-", 
          RowBox[{"a", "*", "e"}]}], ")"}]}], "+", "e"}], ",", "0"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4944644058605547`*^9, 3.54873348564886*^9, 3.548733540404992*^9, {
   3.5749805868694153`*^9, 3.5749805910894213`*^9}, {3.70209999703986*^9, 
   3.702100001152478*^9}, {3.705187283216962*^9, 3.7051872872041903`*^9}, {
   3.705187370183936*^9, 3.7051873828136587`*^9}, {3.7051875088968706`*^9, 
   3.7051875495611963`*^9}, {3.705280647627182*^9, 3.7052806869614315`*^9}, {
   3.7319535390240393`*^9, 3.7319535635044394`*^9}, 3.731953621862777*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", " ", "d"}], "-", 
           RowBox[{"a", " ", "e"}]}], ")"}]}], "+", "e"}], "\[NotEqual]", 
       "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980571819394*^9, 3.5749805976594305`*^9}, 3.574980913369872*^9, {
   3.702100150560342*^9, 3.702100150934742*^9}, {3.7051872108378224`*^9, 
   3.705187229700901*^9}, {3.705187448244401*^9, 3.7051874655953937`*^9}, 
   3.70528614305589*^9, {3.705286333685794*^9, 3.705286335758912*^9}, 
   3.709484819720065*^9, {3.7319512320660887`*^9, 3.731951235656294*^9}, {
   3.731953646828205*^9, 3.7319536514834714`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], "\[Equal]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"b", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"1", "-", 
        RowBox[{"a", " ", "c"}], "-", 
        RowBox[{"b", " ", "c", " ", "x"}]}], "]"}]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}]]}]}]],
  CellChangeTimes->{{3.731951743941366*^9, 3.7319517740940905`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7319517337527833`*^9, 3.73195173475084*^9}, 
   3.731951780498457*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "d"}], "-", 
       RowBox[{"a", " ", "e"}]}], ")"}]}], "+", "e"}], "\[NotEqual]", "0"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
    3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
    3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
    3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
    3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
    3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
    3.4948854565823865`*^9}, {3.702100067709195*^9, 3.702100070486*^9}, {
    3.7051872411225543`*^9, 3.7051872463588543`*^9}, {3.70518739245221*^9, 
    3.7051874166945963`*^9}, {3.705280519000825*^9, 3.705280575439053*^9}, 
    3.705280620726643*^9},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.5749805800494056`*^9, 
   3.574980583929411*^9}, {3.7051874566758833`*^9, 3.7051874571659117`*^9}, {
   3.7319512959457426`*^9, 3.7319513110546064`*^9}, {3.7319536682334294`*^9, 
   3.7319536682334294`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], " ", 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], "e"]}]}]}]}], "+", 
  RowBox[{
   FractionBox["b", "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", " ", "c"}], "-", 
         RowBox[{"b", " ", "c", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
   3.4948854565823865`*^9}, {3.702100067709195*^9, 3.702100070486*^9}, {
   3.7051872411225543`*^9, 3.7051872463588543`*^9}, {3.70518739245221*^9, 
   3.7051874166945963`*^9}, {3.705280519000825*^9, 3.705280575439053*^9}, 
   3.705280620726643*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", "*", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], "/", "e"}]}], " ", 
    "+", " ", 
    RowBox[{
     RowBox[{"b", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"1", "-", 
           RowBox[{"a", "*", "c"}], "-", 
           RowBox[{"b", "*", "c", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "*", "d"}], "-", 
          RowBox[{"a", "*", "e"}]}], ")"}]}], "+", "e"}], ",", "0"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4944644058605547`*^9, 3.54873348564886*^9, 3.548733540404992*^9, {
   3.5749805868694153`*^9, 3.5749805910894213`*^9}, {3.70209999703986*^9, 
   3.702100001152478*^9}, {3.705187283216962*^9, 3.7051872872041903`*^9}, {
   3.705187370183936*^9, 3.7051873828136587`*^9}, {3.7051875088968706`*^9, 
   3.7051875495611963`*^9}, {3.705280647627182*^9, 3.7052806869614315`*^9}, {
   3.731953638028702*^9, 3.7319536407368565`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980571819394*^9, 3.5749805976594305`*^9}, 3.574980913369872*^9, {
   3.702100150560342*^9, 3.702100150934742*^9}, {3.7051872108378224`*^9, 
   3.705187229700901*^9}, {3.705187448244401*^9, 3.7051874655953937`*^9}, 
   3.70528614305589*^9, {3.705286333685794*^9, 3.705286335758912*^9}, {
   3.7052863667426844`*^9, 3.7052863943552637`*^9}, 3.7094848203501005`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.5749805800494056`*^9, 
   3.574980583929411*^9}, {3.705286563722951*^9, 3.7052865637239513`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], " ", 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"e", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", " ", "c"}], "-", 
         RowBox[{"b", " ", "c", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
   3.4948854565823865`*^9}, {3.702100067709195*^9, 3.702100070486*^9}, {
   3.7051872411225543`*^9, 3.7051872463588543`*^9}, {3.70518739245221*^9, 
   3.7051874166945963`*^9}, {3.705280519000825*^9, 3.705280575439053*^9}, 
   3.705280620726643*^9, {3.7052864053308916`*^9, 3.7052864760119343`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", "*", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"1", "-", 
           RowBox[{"a", "*", "c"}], "-", 
           RowBox[{"b", "*", "c", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4944644058605547`*^9, 3.54873348564886*^9, 3.548733540404992*^9, {
   3.5749805868694153`*^9, 3.5749805910894213`*^9}, {3.70209999703986*^9, 
   3.702100001152478*^9}, {3.705187283216962*^9, 3.7051872872041903`*^9}, {
   3.705187370183936*^9, 3.7051873828136587`*^9}, {3.7051875088968706`*^9, 
   3.7051875495611963`*^9}, {3.705280647627182*^9, 3.7052806869614315`*^9}, {
   3.705286518381358*^9, 3.705286544750866*^9}, {3.7052866311428075`*^9, 
   3.705286635192039*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980571819394*^9, 3.5749805976594305`*^9}, 3.574980913369872*^9, {
   3.702100150560342*^9, 3.702100150934742*^9}, 3.7094842338245535`*^9, 
   3.7094848406512623`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.5749805800494056`*^9, 
   3.574980583929411*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{"n", ",", 
          RowBox[{"c", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "p"}], 
    RowBox[{"e", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{
         RowBox[{"n", "-", "1"}], ",", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
   3.4948854565823865`*^9}, {3.702100067709195*^9, 3.702100070486*^9}, {
   3.7094842373397546`*^9, 3.709484258656974*^9}, {3.7094842953820744`*^9, 
   3.709484297266182*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d_.", "+", 
         RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"n_", ",", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a_.", "+", 
            RowBox[{"b_.", "*", "x_"}]}], ")"}], "^", "p_."}]}]}], "]"}]}], 
     ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"PolyLog", "[", 
        RowBox[{"n", ",", 
         RowBox[{"c", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"e", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
     RowBox[{"b", "*", 
      RowBox[{"p", "/", 
       RowBox[{"(", 
        RowBox[{"e", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"PolyLog", "[", 
           RowBox[{
            RowBox[{"n", "-", "1"}], ",", 
            RowBox[{"c", "*", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"a", "+", 
                RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}], "/", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", 
    "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "p"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"GtQ", "[", 
      RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"IGtQ", "[", 
      RowBox[{"m", ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4944644058605547`*^9, 3.54873348564886*^9, 3.548733540404992*^9, {
   3.5749805868694153`*^9, 3.5749805910894213`*^9}, {3.70209999703986*^9, 
   3.702100001152478*^9}, {3.7094839245938663`*^9, 3.7094839392647057`*^9}, {
   3.709484325568801*^9, 3.70948437695074*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980571819394*^9, 3.5749805976594305`*^9}, 3.574980913369872*^9, {
   3.70948399388583*^9, 3.7094840059485197`*^9}, {3.709484734475189*^9, 
   3.7094847347272034`*^9}, 3.7094848418653316`*^9, {3.7094848724960833`*^9, 
   3.7094848724960833`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.5749805800494056`*^9, 
   3.574980583929411*^9}, {3.7094840151650467`*^9, 3.7094840151650467`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", 
            RowBox[{"m", "+", "1"}]], "-", 
           RowBox[{
            SuperscriptBox["b", 
             RowBox[{"m", "+", "1"}]], " ", 
            SuperscriptBox["x", 
             RowBox[{"m", "+", "1"}]]}]}], ")"}], " ", 
         RowBox[{"PolyLog", "[", 
          RowBox[{"n", ",", 
           RowBox[{"c", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "+", 
               RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], " ", 
         SuperscriptBox["b", 
          RowBox[{"m", "+", "1"}]]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox["p", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}], " ", 
     SuperscriptBox["b", "m"]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "-", "1"}], ",", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], "p"]}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["a", 
          RowBox[{"m", "+", "1"}]], "-", 
         RowBox[{
          SuperscriptBox["b", 
           RowBox[{"m", "+", "1"}]], " ", 
          SuperscriptBox["x", 
           RowBox[{"m", "+", "1"}]]}]}], 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}]], ",", "x"}], "]"}], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.4944644333605933`*^9, 3.494464454030622*^9}, {3.494885437612753*^9, 
   3.4948854565823865`*^9}, {3.7021000491255627`*^9, 3.702100058378379*^9}, {
   3.7021001240050945`*^9, 3.702100138029519*^9}, {3.7021003605647163`*^9, 
   3.702100384093558*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a_.", "+", 
           RowBox[{"b_.", "*", "x_"}]}], ")"}], "^", "p_."}]}]}], "]"}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"b", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "*", 
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"n", ",", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"b", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{"p", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"b", "^", "m"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{"PolyLog", "[", 
          RowBox[{
           RowBox[{"n", "-", "1"}], ",", 
           RowBox[{"c", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", "+", 
               RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", "^", 
             RowBox[{"(", 
              RowBox[{"m", "+", "1"}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"b", "^", 
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}]}], "*", 
             RowBox[{"x", "^", 
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}]}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "p"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4944644058605547`*^9, 3.54873348564886*^9, 3.548733540404992*^9, {
   3.5749805868694153`*^9, 3.5749805910894213`*^9}, {3.702100184213601*^9, 
   3.7021002101782494`*^9}, {3.702100259337936*^9, 3.7021002663151484`*^9}, 
   3.702100324867853*^9, {3.7021003943437757`*^9, 3.7021004168118153`*^9}, {
   3.7021004898475447`*^9, 3.7021005005055656`*^9}, {3.709483970372485*^9, 
   3.709483976668845*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.731976612506564*^9, 
   3.7319766253162966`*^9}, 3.7319793290269403`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731976648294611*^9, 3.7319766485466256`*^9}, 3.731977198916105*^9, 
   3.7319792627201476`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts and algebraic expansion", \
"Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318825563439217`*^9, 3.731882562166254*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g", "+", " ", 
        RowBox[{"h", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"f", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"f", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"d", "+", 
               RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], 
       " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"c", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]]}], "+", 
    FractionBox[
     RowBox[{"e", " ", "h", " ", "n", " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]]}]}]],
  CellChangeTimes->{{3.7318702994972706`*^9, 3.7318703380224743`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.731870347443013*^9, 3.73187035613951*^9}, {
   3.7318837274435034`*^9, 3.7318837477756667`*^9}, {3.731884622175679*^9, 
   3.7318846360434723`*^9}, {3.731885021756534*^9, 3.731885021756534*^9}, {
   3.7319624368945675`*^9, 3.7319624453080482`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, 3.7318908122077284`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "x"}]}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{"b", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"a", " ", "c"}], "-", 
       RowBox[{"b", " ", "c", " ", "x"}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox["x", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{"e", " ", "h", " ", "n", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox["x", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g_.", "+", 
       RowBox[{"h_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"f_.", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d_.", "+", 
             RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "n_."}]}], "]"}]}]}], 
      ")"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"(", 
      RowBox[{"g", "+", 
       RowBox[{"h", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"f", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}], ")"}],
      "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{"b", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "+", 
          RowBox[{"h", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"f", "*", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}], 
         ")"}], "*", 
        RowBox[{"Log", "[", 
         RowBox[{"1", "-", 
          RowBox[{"a", "*", "c"}], "-", 
          RowBox[{"b", "*", "c", "*", "x"}]}], "]"}], "*", 
        RowBox[{"ExpandIntegrand", "[", 
         RowBox[{
          RowBox[{"x", "/", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}], ",", 
       "x"}], "]"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"e", "*", "h", "*", "n", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", "*", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], "*", 
        RowBox[{"ExpandIntegrand", "[", 
         RowBox[{
          RowBox[{"x", "/", 
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
       "h", ",", "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 3.7319626532549424`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.705193477493099*^9, 
   3.7051935119800715`*^9}, {3.7094847510211353`*^9, 
   3.7094847670150504`*^9}, {3.7094848098525004`*^9, 3.709484810130516*^9}, {
   3.7319640286376095`*^9, 3.7319640288466215`*^9}, 3.731964076263334*^9, {
   3.7319766498727016`*^9, 3.731976650079713*^9}, 3.7319767392638144`*^9, {
   3.731977279846734*^9, 3.7319772822628717`*^9}, {3.7319792645372515`*^9, 
   3.731979266141343*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"1", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", " ", "x"}]}], "]"}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"c", "+", "e"}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.705193477493099*^9, 
   3.7051935119800715`*^9}, {3.7094847510211353`*^9, 
   3.7094847670150504`*^9}, {3.7094848098525004`*^9, 3.709484810130516*^9}, {
   3.7319640286376095`*^9, 3.7319640288466215`*^9}, 3.731964076263334*^9, {
   3.731965957522936*^9, 3.731965977445075*^9}, 3.7319772848430195`*^9, 
   3.73197927551388*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", " ", "x"}]}], "]"}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"c", "+", "e"}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731962686924868*^9, 3.731962715909526*^9}, {3.731963937710409*^9, 
   3.731963942741697*^9}, {3.7319640302427015`*^9, 3.731964031461771*^9}, {
   3.731964090330138*^9, 3.7319641090602093`*^9}, 3.7319642441899385`*^9, 
   3.73196467238743*^9, 3.7319647726731663`*^9, {3.7319649733536444`*^9, 
   3.7319650091996946`*^9}, {3.7319650757535014`*^9, 
   3.7319650786156654`*^9}, {3.7319652234769506`*^9, 
   3.7319652715396996`*^9}, {3.73196575461133*^9, 3.73196575461133*^9}, {
   3.731965922787949*^9, 3.731965947604368*^9}, {3.7319659811582875`*^9, 
   3.7319659884177027`*^9}, 3.731977285673067*^9, 3.731979277527995*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318825563439217`*^9, 3.731882562166254*^9}, {
   3.7319654321908884`*^9, 3.731965434642029*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"e", "+", "c"}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"Log", "[", 
     RowBox[{"1", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "x"], "\[Equal]", 
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", "x"}]}], "]"}]}]}]}]],
  CellChangeTimes->{{3.7318702994972706`*^9, 3.7318703380224743`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.731870347443013*^9, 3.73187035613951*^9}, {
   3.7318837274435034`*^9, 3.7318837477756667`*^9}, {3.731884622175679*^9, 
   3.7318846360434723`*^9}, {3.731885021756534*^9, 3.731885021756534*^9}, {
   3.7319624368945675`*^9, 3.7319624453080482`*^9}, {3.7319655589151363`*^9, 
   3.7319655589151363`*^9}, {3.7319655899219103`*^9, 3.7319656007495294`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"c", "+", "e"}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}, {
   3.731965583823561*^9, 3.731965583823561*^9}, {3.731965747689934*^9, 
   3.7319657492730246`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", "x"}]}], "]"}]}], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", " ", "x"}]}], "]"}], "2"], 
       "2"]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
   3.7319627387738338`*^9}, {3.731965320356492*^9, 3.7319653437418294`*^9}, {
   3.731965683841282*^9, 3.7319656867514486`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"e_.", "*", "x_"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c_.", "*", "x_"}]}], "]"}], "/", "x_"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", "*", "x"}]}], "]"}], "^", "2"}]}], "/", "2"}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "e"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"c", "+", "e"}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 
   3.7319626532549424`*^9}, {3.731962751224546*^9, 3.7319628327302074`*^9}, {
   3.731963998557889*^9, 3.7319640118826513`*^9}, {3.7319656229537992`*^9, 
   3.7319656588138504`*^9}, {3.7319657119408894`*^9, 3.7319657375473537`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"1", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", " ", "x"}]}], "]"}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"c", "+", "e"}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731962686924868*^9, 3.731962715909526*^9}, {3.731963937710409*^9, 
   3.731963942741697*^9}, {3.7319640302427015`*^9, 3.731964031461771*^9}, {
   3.731964090330138*^9, 3.7319641090602093`*^9}, 3.7319642441899385`*^9, 
   3.73196467238743*^9, 3.7319647726731663`*^9, {3.7319649733536444`*^9, 
   3.7319650091996946`*^9}, {3.7319650757535014`*^9, 
   3.7319650786156654`*^9}, {3.7319652234769506`*^9, 
   3.7319652715396996`*^9}, {3.73196575461133*^9, 3.73196575461133*^9}, {
   3.731965922787949*^9, 3.731965947604368*^9}, {3.7319659811582875`*^9, 
   3.7319660103359566`*^9}, 3.7319772862751017`*^9, 3.7319792782370353`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318825563439217`*^9, 3.731882562166254*^9}, {
   3.7319654321908884`*^9, 3.731965434642029*^9}, {3.7319660192464657`*^9, 
   3.731966022222636*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"c", "+", "e"}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}, {
   3.731965583823561*^9, 3.731965583823561*^9}, {3.731965747689934*^9, 
   3.7319657492730246`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g", "+", 
        RowBox[{"h", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"1", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", "x"}]}], "]"}]}], "x"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "g"}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", " ", "x"}]}], "]"}], "x"], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
  RowBox[{"h", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}], " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", " ", "x"}]}], "]"}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
   3.7319627387738338`*^9}, {3.731965320356492*^9, 3.7319653437418294`*^9}, {
   3.731965683841282*^9, 3.7319656867514486`*^9}, {3.731966031852187*^9, 
   3.731966067165207*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g_", "+", 
       RowBox[{"h_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"1", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c_.", "*", "x_"}]}], "]"}], "/", "x_"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", "*", "x"}]}], "]"}], "/", "x"}], ",", "x"}], "]"}]}], 
    " ", "+", " ", 
    RowBox[{"h", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{"1", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "*", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", 
            RowBox[{"c", "*", "x"}]}], "]"}]}], ")"}], "/", "x"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "e", ",", "g", ",", "h"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"c", "+", "e"}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 
   3.7319626532549424`*^9}, {3.731962751224546*^9, 3.7319628327302074`*^9}, {
   3.731963998557889*^9, 3.7319640118826513`*^9}, {3.7319656229537992`*^9, 
   3.7319656588138504`*^9}, {3.7319657119408894`*^9, 
   3.7319657375473537`*^9}, {3.731966081413022*^9, 3.731966101107148*^9}, {
   3.731966134974085*^9, 3.731966142889538*^9}, 3.7319780756902533`*^9, 
   3.731978128045248*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731962686924868*^9, 3.731962715909526*^9}, {3.731963937710409*^9, 
   3.731963942741697*^9}, {3.7319640302427015`*^9, 3.731964031461771*^9}, {
   3.731964309165655*^9, 3.731964318416184*^9}, 3.731977286895137*^9, 
   3.7319792788000674`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts and algebraic expansion", \
"Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318825563439217`*^9, 3.731882562166254*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g", "+", " ", 
        RowBox[{"h", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"f", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"f", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"d", "+", 
               RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], 
       " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", " ", "c"}], "-", 
         RowBox[{"b", " ", "c", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]]}], "+", 
    FractionBox[
     RowBox[{"e", " ", "h", " ", "n", " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]]}]}]],
  CellChangeTimes->{{3.7318702994972706`*^9, 3.7318703380224743`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.731870347443013*^9, 3.73187035613951*^9}, {
   3.7318837274435034`*^9, 3.7318837477756667`*^9}, {3.731884622175679*^9, 
   3.7318846360434723`*^9}, {3.731885021756534*^9, 3.731885021756534*^9}, {
   3.7319624368945675`*^9, 3.7319624453080482`*^9}, {3.731973902976989*^9, 
   3.731973902976989*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"(", 
         RowBox[{"g", "+", " ", 
          RowBox[{"h", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"f", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"d", "+", 
                RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], 
        " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], 
       RowBox[{"m", "+", "1"}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"a", " ", "c"}], "-", 
       RowBox[{"b", " ", "c", " ", "x"}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox[
        SuperscriptBox["x", 
         RowBox[{"m", "+", "1"}]], 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"e", " ", "h", " ", "n"}], 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox[
        SuperscriptBox["x", 
         RowBox[{"m", "+", "1"}]], 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
   3.7319627387738338`*^9}, {3.7319735102745275`*^9, 3.731973514439766*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{"(", 
      RowBox[{"g_.", "+", 
       RowBox[{"h_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"f_.", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d_.", "+", 
             RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "n_."}]}], "]"}]}]}], 
      ")"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"(", 
      RowBox[{"g", "+", 
       RowBox[{"h", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"f", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}], ")"}],
      "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", "*", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"g", "+", 
            RowBox[{"h", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"f", "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"d", "+", 
                  RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}], 
           ")"}], "*", 
          RowBox[{"Log", "[", 
           RowBox[{"1", "-", 
            RowBox[{"a", "*", "c"}], "-", 
            RowBox[{"b", "*", "c", "*", "x"}]}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"x", "^", 
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}]}], "/", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}], ",", "x"}],
       "]"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"e", "*", "h", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{"PolyLog", "[", 
          RowBox[{"2", ",", 
           RowBox[{"c", "*", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"x", "^", 
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}]}], "/", 
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "h", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 
   3.7319626532549424`*^9}, {3.731962751224546*^9, 3.7319628327302074`*^9}, {
   3.731963998557889*^9, 3.7319640118826513`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"P", "[", "x", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731962686924868*^9, 3.731962715909526*^9}, {3.731963937710409*^9, 
   3.731963942741697*^9}, {3.7319640302427015`*^9, 3.731964031461771*^9}, {
   3.731964309165655*^9, 3.731964318416184*^9}, {3.7319733544296136`*^9, 
   3.731973390954703*^9}, {3.7319748978664923`*^9, 3.7319748989995575`*^9}, {
   3.7319759674926715`*^9, 3.73197596868974*^9}, {3.7319767653373055`*^9, 
   3.731976780147153*^9}, 3.7319769044272614`*^9, {3.7319772010632277`*^9, 
   3.731977203219351*^9}, {3.731979281046196*^9, 3.731979283252322*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts and algebraic expansion", \
"Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318825563439217`*^9, 3.731882562166254*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g", "+", " ", 
        RowBox[{"h", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"f", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"f", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"d", "+", 
               RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], 
       " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", " ", "c"}], "-", 
         RowBox[{"b", " ", "c", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]]}], "+", 
    FractionBox[
     RowBox[{"e", " ", "h", " ", "n", " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]]}]}]],
  CellChangeTimes->{{3.7318702994972706`*^9, 3.7318703380224743`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.731870347443013*^9, 3.73187035613951*^9}, {
   3.7318837274435034`*^9, 3.7318837477756667`*^9}, {3.731884622175679*^9, 
   3.7318846360434723`*^9}, {3.731885021756534*^9, 3.731885021756534*^9}, {
   3.7319624368945675`*^9, 3.7319624453080482`*^9}, {3.73197388865617*^9, 
   3.73197388865617*^9}}],

Cell[TextData[{
 "Rule: Let ",
 Cell[BoxData[
  RowBox[{"u", "\[Rule]", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"P", "[", "x", "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
    3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
    3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
    3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
    3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
    3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
    3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
    3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
    3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
    3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
    3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
    3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
    3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
    3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
    3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
    3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
    3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
    3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
    3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
    3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
    3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
    3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
    3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
    3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
    3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
    3.7319627387738338`*^9}, {3.7319733936048546`*^9, 3.731973394075881*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}, {
   3.7319734258837004`*^9, 3.7319734480879707`*^9}, {3.73197489223717*^9, 
   3.7319748934932423`*^9}, {3.7319768106888995`*^9, 
   3.7319768335482073`*^9}, {3.731976870243306*^9, 3.731976870243306*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"P", "[", "x", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "u"}]}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{"b", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"a", " ", "c"}], "-", 
       RowBox[{"b", " ", "c", " ", "x"}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox["u", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{"e", " ", "h", " ", "n", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox["u", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
   3.7319627387738338`*^9}, {3.7319733936048546`*^9, 3.731973394075881*^9}, 
   3.7319734976538057`*^9, {3.731973537276072*^9, 3.731973611361309*^9}, {
   3.7319768866502447`*^9, 3.7319768869152594`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Px_", "*", 
     RowBox[{"(", 
      RowBox[{"g_.", "+", 
       RowBox[{"h_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"f_.", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d_.", "+", 
             RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "n_."}]}], "]"}]}]}], 
      ")"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"IntHide", "[", 
        RowBox[{"Px", ",", "x"}], "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"f", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"d", "+", 
               RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}], 
        ")"}], "*", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}]}], " ", "+", " ", 
      "\n", "  ", 
      RowBox[{"b", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"ExpandIntegrand", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"g", "+", 
              RowBox[{"h", "*", 
               RowBox[{"Log", "[", 
                RowBox[{"f", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"d", "+", 
                    RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}],
              ")"}], "*", 
            RowBox[{"Log", "[", 
             RowBox[{"1", "-", 
              RowBox[{"a", "*", "c"}], "-", 
              RowBox[{"b", "*", "c", "*", "x"}]}], "]"}]}], ",", 
           RowBox[{"u", "/", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}], ",", 
         "x"}], "]"}]}], " ", "-", " ", "\n", "  ", 
      RowBox[{"e", "*", "h", "*", "n", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"ExpandIntegrand", "[", 
          RowBox[{
           RowBox[{"PolyLog", "[", 
            RowBox[{"2", ",", 
             RowBox[{"c", "*", 
              RowBox[{"(", 
               RowBox[{"a", "+", 
                RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], ",", 
           RowBox[{"u", "/", 
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}], ",", 
         "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "h", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Px", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 
   3.7319626532549424`*^9}, {3.731962751224546*^9, 3.7319628327302074`*^9}, {
   3.731963998557889*^9, 3.7319640118826513`*^9}, {3.7319736491614714`*^9, 
   3.73197365909404*^9}, {3.73197394880161*^9, 3.7319739553029814`*^9}, {
   3.731974021812786*^9, 3.7319741513781967`*^9}, 3.7319748843647203`*^9, {
   3.7319769161719327`*^9, 3.7319769292786827`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"P", "[", "x", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.705193477493099*^9, 
   3.7051935119800715`*^9}, {3.7094847510211353`*^9, 
   3.7094847670150504`*^9}, {3.7094848098525004`*^9, 3.709484810130516*^9}, {
   3.7319640286376095`*^9, 3.7319640288466215`*^9}, 3.731964076263334*^9, {
   3.731975965907581*^9, 3.7319759661685953`*^9}, {3.731976029945244*^9, 
   3.7319760303852687`*^9}, {3.731976651409789*^9, 3.7319766516028004`*^9}, 
   3.731976724731983*^9, {3.73197676786045*^9, 3.7319767680994635`*^9}, {
   3.731977289208269*^9, 3.731977290390337*^9}, {3.7319793015053663`*^9, 
   3.7319793030474544`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"P", "[", "x", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"g", "+", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"1", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{"c", "+", "e"}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"P", "[", 
         RowBox[{"x", ",", 
          RowBox[{
           RowBox[{"-", "m"}], "-", "1"}]}], "]"}], "\[NotEqual]", "0"}]}]]]],
       "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731962686924868*^9, 3.731962715909526*^9}, {3.731963937710409*^9, 
   3.731963942741697*^9}, {3.7319640302427015`*^9, 3.731964031461771*^9}, {
   3.731964090330138*^9, 3.7319641090602093`*^9}, 3.7319642441899385`*^9, 
   3.73196467238743*^9, 3.7319647726731663`*^9, {3.7319649733536444`*^9, 
   3.7319650091996946`*^9}, {3.7319650757535014`*^9, 
   3.7319650786156654`*^9}, {3.7319652234769506`*^9, 
   3.7319652715396996`*^9}, {3.73196575461133*^9, 3.73196575461133*^9}, {
   3.731965922787949*^9, 3.731965947604368*^9}, {3.7319659811582875`*^9, 
   3.7319660103359566`*^9}, {3.7319760071479397`*^9, 3.73197603320643*^9}, 
   3.7319772916784105`*^9, 3.7319793120939713`*^9, {3.7319812446471066`*^9, 
   3.7319812882466*^9}, {3.731981362398842*^9, 3.7319813756656003`*^9}, 
   3.731981506106061*^9, {3.7319837230828648`*^9, 3.7319837246099524`*^9}, {
   3.731985072809065*^9, 3.7319850730980816`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318825563439217`*^9, 3.731882562166254*^9}, {
   3.7319654321908884`*^9, 3.731965434642029*^9}, {3.7319660192464657`*^9, 
   3.731966022222636*^9}}],

Cell[TextData[{
 "Note: Separates out the term in the integrand of the form ",
 Cell[BoxData[
  FractionBox[
   RowBox[{
    RowBox[{"P", "[", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"-", "m"}], "-", "1"}]}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", "x"}]}], "]"}]}], "x"]], "Input",
  CellChangeTimes->{{3.731981910971218*^9, 3.7319819235649385`*^9}}],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}, {
   3.731965583823561*^9, 3.731965583823561*^9}, {3.731965747689934*^9, 
   3.7319657492730246`*^9}, {3.73198139943496*^9, 3.73198139943496*^9}, {
   3.7319818435033593`*^9, 3.731981892438158*^9}, {3.731981966562398*^9, 
   3.731981969435562*^9}, {3.7319822328206267`*^9, 3.7319822365368395`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
   RowBox[{
    RowBox[{"c", "+", "e"}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"P", "[", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"-", "m"}], "-", "1"}]}], "]"}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}, {
   3.731965583823561*^9, 3.731965583823561*^9}, {3.731965747689934*^9, 
   3.7319657492730246`*^9}, {3.73198139943496*^9, 3.73198139943496*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    RowBox[{"P", "[", "x", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"P", "[", 
       RowBox[{"x", ",", 
        RowBox[{
         RowBox[{"-", "m"}], "-", "1"}]}], "]"}]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "+", 
          RowBox[{"h", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"1", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{"2", ",", 
          RowBox[{"c", " ", "x"}]}], "]"}]}], "x"], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"P", "[", "x", "]"}], "-", 
      RowBox[{
       RowBox[{"P", "[", 
        RowBox[{"x", ",", 
         RowBox[{
          RowBox[{"-", "m"}], "-", "1"}]}], "]"}], " ", 
       SuperscriptBox["x", 
        RowBox[{
         RowBox[{"-", "m"}], "-", "1"}]]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
   3.7319627387738338`*^9}, {3.731965320356492*^9, 3.7319653437418294`*^9}, {
   3.731965683841282*^9, 3.7319656867514486`*^9}, {3.731966031852187*^9, 
   3.731966067165207*^9}, {3.7319760637951794`*^9, 3.731976074202775*^9}, {
   3.73197634144306*^9, 3.7319763856155868`*^9}, 3.731981410507593*^9, {
   3.7319816566776733`*^9, 3.7319817062625093`*^9}, {3.731981763916807*^9, 
   3.731981825073305*^9}, {3.731981991343815*^9, 3.731982027458881*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", "Px_", "*", 
     RowBox[{"(", 
      RowBox[{"g_.", "+", 
       RowBox[{"h_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"1", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Coeff", "[", 
      RowBox[{"Px", ",", "x", ",", 
       RowBox[{
        RowBox[{"-", "m"}], "-", "1"}]}], "]"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "+", 
          RowBox[{"h", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"1", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"PolyLog", "[", 
          RowBox[{"2", ",", 
           RowBox[{"c", "*", "x"}]}], "]"}], "/", "x"}]}], ",", "x"}], 
      "]"}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "*", 
       RowBox[{"(", 
        RowBox[{"Px", "-", 
         RowBox[{
          RowBox[{"Coeff", "[", 
           RowBox[{"Px", ",", "x", ",", 
            RowBox[{
             RowBox[{"-", "m"}], "-", "1"}]}], "]"}], "*", 
          RowBox[{"x", "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "m"}], "-", "1"}], ")"}]}]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"1", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "e", ",", "g", ",", "h"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Px", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"c", "+", "e"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"Coeff", "[", 
       RowBox[{"Px", ",", "x", ",", 
        RowBox[{
         RowBox[{"-", "m"}], "-", "1"}]}], "]"}], ",", "0"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 
   3.7319626532549424`*^9}, {3.731962751224546*^9, 3.7319628327302074`*^9}, {
   3.731963998557889*^9, 3.7319640118826513`*^9}, {3.7319656229537992`*^9, 
   3.7319656588138504`*^9}, {3.7319657119408894`*^9, 
   3.7319657375473537`*^9}, {3.731966081413022*^9, 3.731966101107148*^9}, {
   3.731966134974085*^9, 3.731966142889538*^9}, {3.7319761084427333`*^9, 
   3.731976134329214*^9}, 3.731976480052988*^9, {3.731976522997444*^9, 
   3.7319765327009993`*^9}, 3.731978086224856*^9, 3.73198038153014*^9, {
   3.7319804148840475`*^9, 3.7319804667430143`*^9}, {3.7319809151492605`*^9, 
   3.7319809511013165`*^9}, {3.7319809834121647`*^9, 
   3.7319809841192055`*^9}, {3.731981038425311*^9, 3.7319811053851414`*^9}, {
   3.731981164370515*^9, 3.7319811665706406`*^9}, 3.731981215287427*^9, {
   3.7319813170492477`*^9, 3.731981343348752*^9}, {3.7319823459981003`*^9, 
   3.731982360344921*^9}, {3.7319827005733805`*^9, 3.7319827011824155`*^9}, {
   3.731983737487689*^9, 3.7319837453971415`*^9}, {3.7319850795164485`*^9, 
   3.7319850822956076`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"P", "[", "x", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731962686924868*^9, 3.731962715909526*^9}, {3.731963937710409*^9, 
   3.731963942741697*^9}, {3.7319640302427015`*^9, 3.731964031461771*^9}, {
   3.731964309165655*^9, 3.731964318416184*^9}, {3.7319733544296136`*^9, 
   3.731973390954703*^9}, {3.7319748978664923`*^9, 3.7319748989995575`*^9}, {
   3.7319759674926715`*^9, 3.73197596868974*^9}, 3.73197729236545*^9, 
   3.731979313007024*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts and algebraic expansion", \
"Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.7318825563439217`*^9, 3.731882562166254*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g", "+", " ", 
        RowBox[{"h", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"f", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"f", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"d", "+", 
               RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], 
       " ", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", " ", "c"}], "-", 
         RowBox[{"b", " ", "c", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]]}], "+", 
    FractionBox[
     RowBox[{"e", " ", "h", " ", "n", " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]]}]}]],
  CellChangeTimes->{{3.7318702994972706`*^9, 3.7318703380224743`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.731870347443013*^9, 3.73187035613951*^9}, {
   3.7318837274435034`*^9, 3.7318837477756667`*^9}, {3.731884622175679*^9, 
   3.7318846360434723`*^9}, {3.731885021756534*^9, 3.731885021756534*^9}, {
   3.7319624368945675`*^9, 3.7319624453080482`*^9}, {3.73197388865617*^9, 
   3.73197388865617*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"u", "\[Rule]", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"P", "[", "x", "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
    3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
    3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
    3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
    3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
    3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
    3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
    3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
    3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
    3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
    3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
    3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
    3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
    3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
    3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
    3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
    3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
    3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
    3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
    3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
    3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
    3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
    3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
    3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
    3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
    3.7319627387738338`*^9}, {3.7319733936048546`*^9, 3.731973394075881*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}, {
   3.7319734258837004`*^9, 3.7319734480879707`*^9}, {3.73197489223717*^9, 
   3.7319748934932423`*^9}, {3.731976859787708*^9, 3.731976859787708*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    RowBox[{"P", "[", "x", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "u"}]}], " ", 
    RowBox[{"(", 
     RowBox[{"g", "+", " ", 
      RowBox[{"h", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"f", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}]}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{"b", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       RowBox[{"a", " ", "c"}], "-", 
       RowBox[{"b", " ", "c", " ", "x"}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox["u", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{"e", " ", "h", " ", "n", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], " ", 
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       FractionBox["u", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}]], ",", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
   3.7319627387738338`*^9}, {3.7319733936048546`*^9, 3.731973394075881*^9}, 
   3.7319734976538057`*^9, {3.731973537276072*^9, 3.731973611361309*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", "Px_", "*", 
     RowBox[{"(", 
      RowBox[{"g_.", "+", 
       RowBox[{"h_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"f_.", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d_.", "+", 
             RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "n_."}]}], "]"}]}]}], 
      ")"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"IntHide", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "m"}], "*", "Px"}], ",", "x"}], "]"}]}], "}"}], 
     ",", "\n", "  ", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"(", 
        RowBox[{"g", "+", 
         RowBox[{"h", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"f", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"d", "+", 
               RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}], 
        ")"}], "*", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}]}], " ", "+", " ", 
      "\n", "  ", 
      RowBox[{"b", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"ExpandIntegrand", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"g", "+", 
              RowBox[{"h", "*", 
               RowBox[{"Log", "[", 
                RowBox[{"f", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"d", "+", 
                    RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}],
              ")"}], "*", 
            RowBox[{"Log", "[", 
             RowBox[{"1", "-", 
              RowBox[{"a", "*", "c"}], "-", 
              RowBox[{"b", "*", "c", "*", "x"}]}], "]"}]}], ",", 
           RowBox[{"u", "/", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}], ",", 
         "x"}], "]"}]}], " ", "-", " ", "\n", "  ", 
      RowBox[{"e", "*", "h", "*", "n", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"ExpandIntegrand", "[", 
          RowBox[{
           RowBox[{"PolyLog", "[", 
            RowBox[{"2", ",", 
             RowBox[{"c", "*", 
              RowBox[{"(", 
               RowBox[{"a", "+", 
                RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}], ",", 
           RowBox[{"u", "/", 
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}], ",", 
         "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "h", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Px", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 
   3.7319626532549424`*^9}, {3.731962751224546*^9, 3.7319628327302074`*^9}, {
   3.731963998557889*^9, 3.7319640118826513`*^9}, {3.7319736491614714`*^9, 
   3.73197365909404*^9}, {3.73197394880161*^9, 3.7319739553029814`*^9}, {
   3.731974021812786*^9, 3.7319741513781967`*^9}, 3.7319748843647203`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["U:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     RowBox[{"P", "[", "x", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"g", "+", " ", 
       RowBox[{"h", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"f", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749805615093794`*^9, 3.5749805656693854`*^9}, {3.5749809013898554`*^9, 
   3.5749809043198595`*^9}, {3.7318700950205755`*^9, 
   3.7318701146196966`*^9}, {3.7318701496226983`*^9, 3.731870150791765*^9}, {
   3.7318710793928785`*^9, 3.731871079614891*^9}, {3.7318802856690464`*^9, 
   3.731880292359429*^9}, {3.731881001708001*^9, 3.731881001708001*^9}, 
   3.7318837087774363`*^9, 3.731883863033259*^9, {3.731884605030699*^9, 
   3.731884605434722*^9}, 3.7318907939026814`*^9, 3.731962491749705*^9, {
   3.731962686924868*^9, 3.731962715909526*^9}, {3.731963937710409*^9, 
   3.731963942741697*^9}, {3.7319640302427015`*^9, 3.731964031461771*^9}, {
   3.731964309165655*^9, 3.731964318416184*^9}, {3.731964409035367*^9, 
   3.731964409644402*^9}, 3.7319644427982984`*^9, {3.731976569674114*^9, 
   3.7319765765505075`*^9}, 3.7319773583262224`*^9, 3.73197930454354*^9, 
   3.731979379614834*^9, 3.7319794315588045`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.7318809595695915`*^9, 3.7318809944585867`*^9}, {3.7318838504345384`*^9, 
   3.7318838504345384`*^9}, {3.7319639753425617`*^9, 
   3.7319639753435616`*^9}, {3.731964329165799*^9, 3.731964329165799*^9}, 
   3.731964599896284*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   RowBox[{"P", "[", "x", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{"g", "+", " ", 
     RowBox[{"h", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"f", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], " ", 
   RowBox[{"PolyLog", "[", 
    RowBox[{"2", ",", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "m"], " ", 
       RowBox[{"P", "[", "x", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"g", "+", " ", 
         RowBox[{"h", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"f", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"d", "+", 
               RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}], 
       " ", 
       RowBox[{"PolyLog", "[", 
        RowBox[{"2", ",", 
         RowBox[{"c", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}]}]}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.7021000287353263`*^9, 
   3.702100040436347*^9}, 3.73187015927225*^9, {3.7318712171757593`*^9, 
   3.7318712432442503`*^9}, {3.731878253864834*^9, 3.7318782630283575`*^9}, 
   3.7318783032186565`*^9, {3.731878479967766*^9, 3.731878489230296*^9}, 
   3.731878519288015*^9, {3.7318785688448496`*^9, 3.731878620393798*^9}, {
   3.7318786566458716`*^9, 3.7318787019794645`*^9}, {3.7318787567245955`*^9, 
   3.73187876222591*^9}, {3.7318789534958506`*^9, 3.7318789723659296`*^9}, 
   3.7318790039617367`*^9, {3.7318791857651353`*^9, 3.73187929861659*^9}, {
   3.731879389495788*^9, 3.7318794274139566`*^9}, {3.7318795361561766`*^9, 
   3.731879548820901*^9}, {3.7318798378204308`*^9, 3.7318798430767317`*^9}, {
   3.7318798920675335`*^9, 3.731879895188712*^9}, 3.731879953758062*^9, {
   3.731880170220443*^9, 3.7318801905436053`*^9}, {3.7318802323279953`*^9, 
   3.7318802352651634`*^9}, {3.7318822497933874`*^9, 3.731882250718441*^9}, {
   3.7318837613284416`*^9, 3.731883785289812*^9}, 3.7318838989003105`*^9, {
   3.7318839289390287`*^9, 3.7318839486391554`*^9}, {3.731884610834031*^9, 
   3.7318846110220413`*^9}, {3.7318846522984023`*^9, 
   3.7318846785459037`*^9}, {3.731884714079936*^9, 3.7318847213743534`*^9}, {
   3.731885036653386*^9, 3.731885046317939*^9}, {3.7318854153380456`*^9, 
   3.7318854193572755`*^9}, {3.731890818828107*^9, 3.731890825590494*^9}, {
   3.731962500788222*^9, 3.7319625286468153`*^9}, {3.7319627211628265`*^9, 
   3.7319627387738338`*^9}, {3.731964457027112*^9, 3.731964459680264*^9}, {
   3.731977428226221*^9, 3.731977433090499*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", "Px_.", "*", 
     RowBox[{"(", 
      RowBox[{"g_.", "+", 
       RowBox[{"h_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"f_.", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d_.", "+", 
             RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "n_."}]}], "]"}]}]}], 
      ")"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c_.", "*", 
        RowBox[{"(", 
         RowBox[{"a_.", "+", 
          RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "m"}], "*", "Px", "*", 
      RowBox[{"(", 
       RowBox[{"g", "+", 
        RowBox[{"h", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"f", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], ")"}], "^", "n"}]}], "]"}]}]}], 
       ")"}], "*", 
      RowBox[{"PolyLog", "[", 
       RowBox[{"2", ",", 
        RowBox[{"c", "*", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}]}]}], "]"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "h", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Px", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, {
   3.5487334798345275`*^9, 3.548733481194605*^9}, {3.548733531860503*^9, 
   3.5487335353627033`*^9}, {3.709483903205643*^9, 3.7094839088939686`*^9}, {
   3.731880822610758*^9, 3.731880937814347*^9}, {3.731883831349447*^9, 
   3.7318838375798035`*^9}, {3.731885131912835*^9, 3.731885140027299*^9}, {
   3.73188529232701*^9, 3.7318852950661664`*^9}, {3.7318854329080505`*^9, 
   3.7318854397064395`*^9}, {3.7318908301067524`*^9, 
   3.7318908369061413`*^9}, {3.7319626377520556`*^9, 
   3.7319626532549424`*^9}, {3.731962751224546*^9, 3.7319628327302074`*^9}, {
   3.731963998557889*^9, 3.7319640118826513`*^9}, {3.731964485949766*^9, 
   3.7319645464062243`*^9}, 3.7319645778880253`*^9, 3.731964638709504*^9, {
   3.731976991337232*^9, 3.731977013577504*^9}, {3.731977368576809*^9, 
   3.7319773740081196`*^9}, {3.7319774393068542`*^9, 3.7319774409759502`*^9}, 
   3.731977488219652*^9, 3.73198669291873*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"d", 
       SuperscriptBox[
        RowBox[{"(", 
         SuperscriptBox["F", 
          RowBox[{"c", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.574980935469903*^9, 
   3.5749809432699137`*^9}, {3.731976659346243*^9, 3.7319766603062983`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"d", 
        SuperscriptBox[
         RowBox[{"(", 
          SuperscriptBox["F", 
           RowBox[{"c", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.574980605819442*^9, 3.574980610319448*^9}, {3.574980945179917*^9, 
   3.574980946599919*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Primitive rule", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, 3.4953872627753696`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"], 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", "z"}], "]"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"PolyLog", "[", 
     RowBox[{
      RowBox[{"n", "-", "1"}], ",", "z"}], "]"}], "z"]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, {3.4953872627753696`*^9, 3.4953872819553967`*^9}, {
   3.555121354154451*^9, 3.555121355654453*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, 
   3.4953873506854925`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"PolyLog", "[", 
    RowBox[{"n", ",", 
     RowBox[{"d", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["F", 
         RowBox[{"c", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "+", "1"}], ",", 
        RowBox[{"d", 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["F", 
            RowBox[{"c", 
             RowBox[{"(", 
              RowBox[{"a", "+", 
               RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
      RowBox[{"b", " ", "c", " ", "p", " ", 
       RowBox[{"Log", "[", "F", "]"}]}]]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.4953873155454435`*^9, 
   3.495387328095461*^9}, {3.5516545216117115`*^9, 3.5516545765917883`*^9}, {
   3.5516547213819914`*^9, 3.5516547249819965`*^9}, {3.5551210990540934`*^9, 
   3.5551211005140953`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"d_.", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"F_", "^", 
          RowBox[{"(", 
           RowBox[{"c_.", "*", 
            RowBox[{"(", 
             RowBox[{"a_.", "+", 
              RowBox[{"b_.", "*", "x_"}]}], ")"}]}], ")"}]}], ")"}], "^", 
        "p_."}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"PolyLog", "[", 
     RowBox[{
      RowBox[{"n", "+", "1"}], ",", 
      RowBox[{"d", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"F", "^", 
          RowBox[{"(", 
           RowBox[{"c", "*", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", "x"}]}], ")"}]}], ")"}]}], ")"}], "^", 
        "p"}]}]}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"b", "*", "c", "*", "p", "*", 
      RowBox[{"Log", "[", "F", "]"}]}], ")"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "F", ",", "a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4953873025854254`*^9, {3.5516546365118723`*^9, 3.5516546760819283`*^9}, {
   3.551654731722006*^9, 3.551654759562045*^9}, {3.555121101404097*^9, 
   3.5551211252641306`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"d", 
        SuperscriptBox[
         RowBox[{"(", 
          SuperscriptBox["F", 
           RowBox[{"c", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749806241394672`*^9, 3.5749806286894736`*^9}, 3.5749809552999306`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, 3.4953872627753696`*^9, 3.4953874047955685`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"PolyLog", "[", 
    RowBox[{"n", ",", 
     RowBox[{"d", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["F", 
         RowBox[{"c", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
   "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "+", "1"}], ",", 
       RowBox[{"d", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          SuperscriptBox["F", 
           RowBox[{"c", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
     RowBox[{"b", " ", "c", " ", "p", " ", 
      RowBox[{"Log", "[", "F", "]"}]}]]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, 
   3.4953873506854925`*^9, {3.4953874514756336`*^9, 3.4953874662156544`*^9}, {
   3.5551212761143417`*^9, 3.5551212838443527`*^9}, {3.555121320644404*^9, 
   3.555121320644404*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, 
   3.4953873506854925`*^9, {3.4953874514756336`*^9, 3.4953874662156544`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", 
      RowBox[{"d", 
       SuperscriptBox[
        RowBox[{"(", 
         SuperscriptBox["F", 
          RowBox[{"c", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}], "m"], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "+", "1"}], ",", 
          RowBox[{"d", 
           SuperscriptBox[
            RowBox[{"(", 
             SuperscriptBox["F", 
              RowBox[{"c", 
               RowBox[{"(", 
                RowBox[{"a", "+", 
                 RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], 
         "]"}]}], 
       RowBox[{"b", " ", "c", " ", "p", " ", 
        RowBox[{"Log", "[", "F", "]"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"f", " ", "m"}], 
    RowBox[{"b", " ", "c", " ", "p", " ", 
     RowBox[{"Log", "[", "F", "]"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "+", "1"}], ",", 
       RowBox[{"d", 
        SuperscriptBox[
         RowBox[{"(", 
          SuperscriptBox["F", 
           RowBox[{"c", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", " ", "x"}]}], ")"}]}]], ")"}], "p"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4944391698033185`*^9, 3.4944392275633993`*^9, 
   3.494439676964029*^9, 3.494439726504098*^9, {3.4944400211445103`*^9, 
   3.494440046474546*^9}, 3.494464327520445*^9, 3.4944643583904877`*^9, {
   3.494885406943099*^9, 3.4948854198287215`*^9}, {3.4953873155454435`*^9, 
   3.495387328095461*^9}, {3.495387431105605*^9, 3.4953874404756184`*^9}, {
   3.551654814342121*^9, 3.5516548293621426`*^9}, {3.555121108404107*^9, 
   3.5551211109041104`*^9}, {3.5551211704341936`*^9, 3.555121181404209*^9}, 
   3.5749806170794573`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", 
       RowBox[{"d_.", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"F_", "^", 
           RowBox[{"(", 
            RowBox[{"c_.", "*", 
             RowBox[{"(", 
              RowBox[{"a_.", "+", 
               RowBox[{"b_.", "*", "x_"}]}], ")"}]}], ")"}]}], ")"}], "^", 
         "p_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "+", "1"}], ",", 
        RowBox[{"d", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"F", "^", 
            RowBox[{"(", 
             RowBox[{"c", "*", 
              RowBox[{"(", 
               RowBox[{"a", "+", 
                RowBox[{"b", "*", "x"}]}], ")"}]}], ")"}]}], ")"}], "^", 
          "p"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "c", "*", "p", "*", 
        RowBox[{"Log", "[", "F", "]"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{"f", "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "c", "*", "p", "*", 
        RowBox[{"Log", "[", "F", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "+", "1"}], ",", 
          RowBox[{"d", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"F", "^", 
              RowBox[{"(", 
               RowBox[{"c", "*", 
                RowBox[{"(", 
                 RowBox[{"a", "+", 
                  RowBox[{"b", "*", "x"}]}], ")"}]}], ")"}]}], ")"}], "^", 
            "p"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "F", ",", "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", 
        "n", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4944391618433075`*^9, 
   3.494439665674013*^9, 3.4944400286445208`*^9, 3.4944643116204224`*^9, 
   3.4953873025854254`*^9, 3.49538739892556*^9, 3.54873348826501*^9, 
   3.5487335453582754`*^9, {3.551654908222253*^9, 3.551654926152278*^9}, {
   3.5516549581723228`*^9, 3.55165499222237*^9}, {3.5551211117641115`*^9, 
   3.5551211316241393`*^9}, {3.5551211867642164`*^9, 
   3.5551212396342907`*^9}, {3.709484024359573*^9, 3.709484029507867*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    FractionBox[
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{"n", ",", 
        RowBox[{"F", "[", "x", "]"}]}], "]"}], 
      RowBox[{
       SuperscriptBox["F", "\[Prime]",
        MultilineFunction->None], "[", "x", "]"}]}], 
     RowBox[{"F", "[", "x", "]"}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, 
   3.5749659351793947`*^9, 3.5749705000457854`*^9, 3.574980839739769*^9, {
   3.5749808714398136`*^9, 3.574980878469823*^9}, {3.574980935469903*^9, 
   3.5749809432699137`*^9}, {3.587954664551903*^9, 3.5879546647619033`*^9}, 
   3.587954734342004*^9, {3.731976662110401*^9, 3.731976665373588*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"PolyLog", "[", 
        RowBox[{"n", ",", 
         RowBox[{"F", "[", "x", "]"}]}], "]"}], 
       RowBox[{
        SuperscriptBox["F", "\[Prime]",
         MultilineFunction->None], "[", "x", "]"}]}], 
      RowBox[{"F", "[", "x", "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749818544311895`*^9, 3.5749818591111965`*^9}, {3.5750478362808533`*^9, 
   3.575047842801665*^9}, {3.575051603121868*^9, 3.5750516488299484`*^9}, {
   3.575140769957526*^9, 3.575140773047531*^9}, {3.5879547014069557`*^9, 
   3.5879547267144923`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis:  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"PolyLog", "[", 
     RowBox[{
      RowBox[{"n", "+", "1"}], ",", "x"}], "]"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", "x"}], "]"}], "x"]}]],
  CellChangeTimes->{{3.5879551959851685`*^9, 3.5879552179152*^9}, {
   3.5879552675752716`*^9, 3.5879552749752827`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, 3.574980268158969*^9, {3.5879552832752943`*^9, 
   3.587955298970317*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.494464706890976*^9, 
   3.4944647103409805`*^9}, {3.574981442610613*^9, 3.574981442610613*^9}, 
   3.5879549269947815`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"PolyLog", "[", 
      RowBox[{"n", ",", 
       RowBox[{"F", "[", "x", "]"}]}], "]"}], 
     RowBox[{
      SuperscriptBox["F", "\[Prime]",
       MultilineFunction->None], "[", "x", "]"}]}], 
    RowBox[{"F", "[", "x", "]"}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{
       RowBox[{"n", "+", "1"}], ",", 
       RowBox[{"F", "[", "x", "]"}]}], "]"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, {3.4951637900936947`*^9, 3.4951638150849385`*^9}, {
   3.495164178986778*^9, 3.4951642244608574`*^9}, {3.4952361349873853`*^9, 
   3.4952361437173977`*^9}, {3.495237006628606*^9, 3.49523702420863*^9}, {
   3.495237059028679*^9, 3.4952370679486914`*^9}, {3.495237099748736*^9, 
   3.495237124758771*^9}, {3.550811012409095*^9, 3.5508110566586256`*^9}, {
   3.5508114283958883`*^9, 3.5508114616257887`*^9}, {3.5508114983048863`*^9, 
   3.550811499650964*^9}, {3.5508115414753556`*^9, 3.550811550249858*^9}, 
   3.5508116079461575`*^9, {3.550851015011512*^9, 3.550851039862933*^9}, {
   3.5516382446967707`*^9, 3.5516383897314043`*^9}, {3.5516385752625303`*^9, 
   3.551638583514944*^9}, {3.551727395775647*^9, 3.5517274283056927`*^9}, 
   3.5517276341359806`*^9, {3.5517279389564075`*^9, 3.5517279417864113`*^9}, {
   3.551728001636495*^9, 3.5517280050365*^9}, 3.5517280418165517`*^9, {
   3.5517308209604425`*^9, 3.551730824390447*^9}, {3.5517308705005116`*^9, 
   3.5517308895205383`*^9}, 3.57514048669713*^9, 3.5751405175871735`*^9, {
   3.5751407876375513`*^9, 3.57514081545759*^9}, 3.5879547203494835`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_", "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", "v_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"w", "=", 
       RowBox[{"DerivativeDivides", "[", 
        RowBox[{"v", ",", 
         RowBox[{"u", "*", "v"}], ",", "x"}], "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"w", "*", 
       RowBox[{"PolyLog", "[", 
        RowBox[{
         RowBox[{"n", "+", "1"}], ",", "v"}], "]"}]}], " ", "/;", "\n", " ", 
      RowBox[{"Not", "[", 
       RowBox[{"FalseQ", "[", "w", "]"}], "]"}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{"n", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.5749822121016903`*^9, 3.5749822155316954`*^9}, {
   3.5750516273799105`*^9, 3.5750516305935163`*^9}, 3.641413464067398*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"G", "[", "x", "]"}], "]"}], 
       RowBox[{"PolyLog", "[", 
        RowBox[{"n", ",", 
         RowBox[{"F", "[", "x", "]"}]}], "]"}], 
       RowBox[{
        SuperscriptBox["F", "\[Prime]",
         MultilineFunction->None], "[", "x", "]"}]}], 
      RowBox[{"F", "[", "x", "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.574965436038696*^9, 
   3.5749654394387007`*^9}, {3.574965594018917*^9, 3.5749656046989317`*^9}, 
   3.5749663109399204`*^9, 3.5749675725716867`*^9, {3.574970046885151*^9, 
   3.57497005324516*^9}, {3.5749702579554462`*^9, 3.574970263455454*^9}, 
   3.5749705744358892`*^9, {3.5749803587190957`*^9, 3.574980362259101*^9}, {
   3.5749818544311895`*^9, 3.5749818591111965`*^9}, {3.5750478362808533`*^9, 
   3.575047842801665*^9}, {3.575051603121868*^9, 3.5750516488299484`*^9}, {
   3.575140769957526*^9, 3.575140773047531*^9}, {3.5879547014069557`*^9, 
   3.5879547690020533`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.494464706890976*^9, 
   3.4944647103409805`*^9}, {3.574981442610613*^9, 3.574981442610613*^9}, 
   3.5879549269947815`*^9, {3.587961799803157*^9, 3.587961806783167*^9}}],

Cell[TextData[{
 "Basis:  ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"PolyLog", "[", 
     RowBox[{"n", ",", "x"}], "]"}], "x"], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"PolyLog", "[", 
     RowBox[{
      RowBox[{"n", "+", "1"}], ",", "x"}], "]"}]}]}]],
  CellChangeTimes->{{3.5879551959851685`*^9, 3.5879552179152*^9}, {
   3.5879552675752716`*^9, 3.5879552749752827`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494439616563944*^9, 3.4944396188039474`*^9}, 
   3.494464306060415*^9, 3.574980268158969*^9, {3.5879552832752943`*^9, 
   3.587955298970317*^9}, {3.587961828853198*^9, 3.5879618355532074`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4944394162836637`*^9, 
   3.4944394240236745`*^9}, {3.49444016365471*^9, 3.494440185694741*^9}, {
   3.494440950745812*^9, 3.4944409704958396`*^9}, {3.494441001285883*^9, 
   3.4944410095858946`*^9}, {3.4944628312778177`*^9, 3.494462853414256*^9}, {
   3.494464543190747*^9, 3.4944645914808145`*^9}, {3.494464706890976*^9, 
   3.4944647103409805`*^9}, {3.574981442610613*^9, 3.574981442610613*^9}, 
   3.5879549269947815`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"G", "[", "x", "]"}], "]"}], 
      RowBox[{"PolyLog", "[", 
       RowBox[{"n", ",", 
        RowBox[{"F", "[", "x", "]"}]}], "]"}], 
      RowBox[{
       SuperscriptBox["F", "\[Prime]",
        MultilineFunction->None], "[", "x", "]"}]}], 
     RowBox[{"F", "[", "x", "]"}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"Log", "[", 
       RowBox[{"G", "[", "x", "]"}], "]"}]}]}], 
    RowBox[{"PolyLog", "[", 
     RowBox[{
      RowBox[{"n", "+", "1"}], ",", 
      RowBox[{"F", "[", "x", "]"}]}], "]"}]}]}], "-", 
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["G", "\[Prime]",
        MultilineFunction->None], "[", "x", "]"}], 
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"n", "+", "1"}], ",", 
        RowBox[{"F", "[", "x", "]"}]}], "]"}]}], 
     RowBox[{"G", "[", "x", "]"}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, {3.4951637900936947`*^9, 3.4951638150849385`*^9}, {
   3.495164178986778*^9, 3.4951642244608574`*^9}, {3.4952361349873853`*^9, 
   3.4952361437173977`*^9}, {3.495237006628606*^9, 3.49523702420863*^9}, {
   3.495237059028679*^9, 3.4952370679486914`*^9}, {3.495237099748736*^9, 
   3.495237124758771*^9}, {3.550811012409095*^9, 3.5508110566586256`*^9}, {
   3.5508114283958883`*^9, 3.5508114616257887`*^9}, {3.5508114983048863`*^9, 
   3.550811499650964*^9}, {3.5508115414753556`*^9, 3.550811550249858*^9}, 
   3.5508116079461575`*^9, {3.550851015011512*^9, 3.550851039862933*^9}, {
   3.5516382446967707`*^9, 3.5516383897314043`*^9}, {3.5516385752625303`*^9, 
   3.551638583514944*^9}, {3.551727395775647*^9, 3.5517274283056927`*^9}, 
   3.5517276341359806`*^9, {3.5517279389564075`*^9, 3.5517279417864113`*^9}, {
   3.551728001636495*^9, 3.5517280050365*^9}, 3.5517280418165517`*^9, {
   3.5517308209604425`*^9, 3.551730824390447*^9}, {3.5517308705005116`*^9, 
   3.5517308895205383`*^9}, 3.57514048669713*^9, 3.5751405175871735`*^9, {
   3.5751407876375513`*^9, 3.57514081545759*^9}, 3.5879547203494835`*^9, {
   3.587954779027068*^9, 3.5879548083771105`*^9}, 3.587954844957163*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_", "*", 
     RowBox[{"Log", "[", "w_", "]"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"n_", ",", "v_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", "=", 
       RowBox[{"DerivativeDivides", "[", 
        RowBox[{"v", ",", 
         RowBox[{"u", "*", "v"}], ",", "x"}], "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"z", "*", 
        RowBox[{"Log", "[", "w", "]"}], "*", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"n", "+", "1"}], ",", "v"}], "]"}]}], " ", "-", " ", "\n", 
       "  ", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"SimplifyIntegrand", "[", 
          RowBox[{
           RowBox[{"z", "*", 
            RowBox[{"D", "[", 
             RowBox[{"w", ",", "x"}], "]"}], "*", 
            RowBox[{
             RowBox[{"PolyLog", "[", 
              RowBox[{
               RowBox[{"n", "+", "1"}], ",", "v"}], "]"}], "/", "w"}]}], ",", 
           "x"}], "]"}], ",", "x"}], "]"}]}], " ", "/;", "\n", " ", 
      RowBox[{"Not", "[", 
       RowBox[{"FalseQ", "[", "z", "]"}], "]"}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"n", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"InverseFunctionFreeQ", "[", 
     RowBox[{"w", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.5749822121016903`*^9, 3.5749822155316954`*^9}, {
   3.5750516273799105`*^9, 3.5750516305935163`*^9}, {3.587954887312224*^9, 
   3.587954894314734*^9}, {3.587954963489834*^9, 3.5879549911248736`*^9}, {
   3.587955027094925*^9, 3.58795509993503*^9}, {3.5879554779180746`*^9, 
   3.587955501288108*^9}, {3.5879557454009595`*^9, 3.58795574577096*^9}, {
   3.58795651185169*^9, 3.587956516431696*^9}, 3.6414134681696324`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "involving", " ", 
      "polylogarithms"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2759, 41, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[3329, 65, 3318, 54, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6672, 123, 3366, 56, 201, "Subsubtitle"],
Cell[CellGroupData[{
Cell[10063, 183, 3647, 63, 201, "Subsubtitle"],
Cell[CellGroupData[{
Cell[13735, 250, 5057, 78, 201, "Subsubtitle"],
Cell[18795, 330, 203, 3, 130, "Subsubsection"],
Cell[19001, 335, 6408, 101, 96, "Subsubsection"],
Cell[25412, 438, 1013, 14, 90, "Subsubsection"],
Cell[26428, 454, 2224, 50, 201, "Subsubtitle"],
Cell[28655, 506, 795, 11, 130, "Subsubsection"],
Cell[29453, 519, 1842, 49, 394, "Code"],
Cell[31298, 570, 113, 2, 130, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[31448, 577, 5214, 84, 201, "Subsubtitle"],
Cell[36665, 663, 203, 3, 181, "Subsubsection"],
Cell[36871, 668, 1036, 18, 134, "Subsubsection"],
Cell[37910, 688, 2208, 51, 281, "Subsubtitle"],
Cell[40121, 741, 795, 11, 181, "Subsubsection"],
Cell[40919, 754, 1776, 50, 551, "Code"],
Cell[42698, 806, 113, 2, 181, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[42860, 814, 5129, 84, 201, "Subsubtitle"],
Cell[47992, 900, 187, 3, 181, "Subsubsection"],
Cell[48182, 905, 1057, 19, 134, "Subsubsection"],
Cell[49242, 926, 2413, 57, 359, "Subsubtitle"],
Cell[51658, 985, 795, 11, 181, "Subsubsection"],
Cell[52456, 998, 2007, 57, 551, "Code"],
Cell[54466, 1057, 113, 2, 181, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[54616, 1064, 4981, 77, 201, "Subsubtitle"],
Cell[59600, 1143, 987, 14, 354, "Subsubsection"],
Cell[60590, 1159, 1942, 41, 550, "Subsubtitle"],
Cell[62535, 1202, 795, 11, 354, "Subsubsection"],
Cell[63333, 1215, 1336, 35, 1079, "Code"],
Cell[64672, 1252, 113, 2, 354, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[64834, 1260, 3555, 60, 201, "Subsubtitle"],
Cell[CellGroupData[{
Cell[68414, 1324, 5082, 79, 243, "Subsubtitle"],
Cell[73499, 1405, 172, 3, 253, "Subsubsection"],
Cell[73674, 1410, 679, 19, 316, "Subsubsection"],
Cell[74356, 1431, 1004, 14, 174, "Subsubsection"],
Cell[75363, 1447, 2289, 46, 502, "Subsubtitle"],
Cell[77655, 1495, 795, 11, 253, "Subsubsection"],
Cell[78453, 1508, 1559, 45, 771, "Code"],
Cell[80015, 1555, 1194, 34, 848, "Code"],
Cell[81212, 1591, 113, 2, 253, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[81362, 1598, 3843, 68, 201, "Subsubtitle"],
Cell[CellGroupData[{
Cell[85230, 1670, 5437, 91, 201, "Subsubtitle"],
Cell[90670, 1763, 101, 1, 253, "Subsubsection"],
Cell[90774, 1766, 1279, 23, 187, "Subsubsection"],
Cell[92056, 1791, 2658, 68, 502, "Subsubtitle"],
Cell[94717, 1861, 795, 11, 253, "Subsubsection"],
Cell[95515, 1874, 2517, 74, 961, "Code"],
Cell[98035, 1950, 113, 2, 253, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[98185, 1957, 5428, 91, 201, "Subsubtitle"],
Cell[103616, 2050, 163, 2, 253, "Subsubsection"],
Cell[103782, 2054, 1353, 25, 187, "Subsubsection"],
Cell[105138, 2081, 2656, 67, 502, "Subsubtitle"],
Cell[107797, 2150, 795, 11, 253, "Subsubsection"],
Cell[108595, 2163, 2668, 77, 961, "Code"],
Cell[111266, 2242, 113, 2, 253, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[111428, 2250, 5125, 81, 201, "Subsubtitle"],
Cell[116556, 2333, 987, 14, 354, "Subsubsection"],
Cell[117546, 2349, 2180, 48, 550, "Subsubtitle"],
Cell[119729, 2399, 795, 11, 354, "Subsubsection"],
Cell[120527, 2412, 1651, 45, 1079, "Code"],
Cell[122181, 2459, 113, 2, 354, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[122343, 2467, 5576, 93, 243, "Subsubtitle"],
Cell[127922, 2562, 178, 3, 692, "Subsubsection"],
Cell[128103, 2567, 1186, 20, 510, "Subsubsection"],
Cell[129292, 2589, 3403, 81, 2692, "Subsubtitle"],
Cell[132698, 2672, 795, 11, 692, "Subsubsection"],
Cell[133496, 2685, 2614, 75, 2634, "Code"],
Cell[136113, 2762, 113, 2, 692, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[136275, 2770, 3369, 55, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[139669, 2829, 5161, 84, 74, "Subsubtitle"],
Cell[144833, 2915, 260, 5, 130, "Subsubsection"],
Cell[145096, 2922, 947, 29, 165, "Subsubsection"],
Cell[146046, 2953, 738, 20, 145, "Subsubsection"],
Cell[146787, 2975, 1036, 18, 96, "Subsubsection"],
Cell[147826, 2995, 3651, 96, 683, "Subsubtitle"],
Cell[151480, 3093, 795, 11, 130, "Subsubsection"],
Cell[152278, 3106, 2237, 65, 586, "Code"],
Cell[154518, 3173, 113, 2, 130, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[154668, 3180, 3664, 62, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[158357, 3246, 3581, 60, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[161963, 3310, 3601, 60, 162, "Subsubtitle"],
Cell[CellGroupData[{
Cell[165589, 3374, 5679, 96, 162, "Subsubtitle"],
Cell[171271, 3472, 178, 3, 93, "Subsubsection"],
Cell[171452, 3477, 2432, 54, 103, "Subsubsection"],
Cell[173887, 3533, 851, 26, 103, "Subsubsection"],
Cell[174741, 3561, 2880, 50, 69, "Subsubsection"],
Cell[177624, 3613, 3010, 66, 173, "Subsubtitle"],
Cell[180637, 3681, 795, 11, 93, "Subsubsection"],
Cell[181435, 3694, 2494, 69, 282, "Code"],
Cell[183932, 3765, 113, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[184082, 3772, 5732, 97, 162, "Subsubtitle"],
Cell[189817, 3871, 178, 3, 93, "Subsubsection"],
Cell[189998, 3876, 851, 26, 103, "Subsubsection"],
Cell[190852, 3904, 2937, 51, 69, "Subsubsection"],
Cell[193792, 3957, 2726, 64, 162, "Subsubtitle"],
Cell[196521, 4023, 795, 11, 93, "Subsubsection"],
Cell[197319, 4036, 2522, 71, 282, "Code"],
Cell[199844, 4109, 113, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[200006, 4117, 5551, 91, 144, "Subsubtitle"],
Cell[205560, 4210, 178, 3, 130, "Subsubsection"],
Cell[205741, 4215, 1217, 21, 96, "Subsubsection"],
Cell[206961, 4238, 3086, 75, 250, "Subsubtitle"],
Cell[210050, 4315, 795, 11, 130, "Subsubsection"],
Cell[210848, 4328, 2840, 80, 394, "Code"],
Cell[213691, 4410, 113, 2, 130, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[213853, 4418, 5491, 93, 74, "Subsubtitle"],
Cell[219347, 4513, 178, 3, 130, "Subsubsection"],
Cell[219528, 4518, 1260, 23, 96, "Subsubsection"],
Cell[220791, 4543, 3161, 81, 257, "Subsubtitle"],
Cell[223955, 4626, 795, 11, 130, "Subsubsection"],
Cell[224753, 4639, 3030, 86, 491, "Code"],
Cell[227786, 4727, 113, 2, 130, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[227936, 4734, 5544, 92, 74, "Subsubtitle"],
Cell[233483, 4828, 178, 3, 130, "Subsubsection"],
Cell[233664, 4833, 1363, 24, 96, "Subsubsection"],
Cell[235030, 4859, 3504, 89, 453, "Subsubtitle"],
Cell[238537, 4950, 795, 11, 130, "Subsubsection"],
Cell[239335, 4963, 3617, 103, 491, "Code"],
Cell[242955, 5068, 113, 2, 130, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[243129, 5077, 3697, 64, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[246851, 5145, 5690, 92, 53, "Subsubtitle"],
Cell[252544, 5239, 252, 4, 48, "Subsubsection"],
Cell[252799, 5245, 2089, 62, 61, "Subsubsection"],
Cell[254891, 5309, 1039, 14, 34, "Subsubsection"],
Cell[255933, 5325, 4989, 113, 221, "Subsubtitle"],
Cell[260925, 5440, 795, 11, 48, "Subsubsection"],
Cell[261723, 5453, 3637, 101, 215, "Code"],
Cell[265363, 5556, 113, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[265513, 5563, 4365, 79, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[269903, 5646, 4117, 74, 82, "Subsubtitle"],
Cell[CellGroupData[{
Cell[274045, 5724, 6260, 101, 82, "Subsubtitle"],
Cell[280308, 5827, 285, 4, 48, "Subsubsection"],
Cell[280596, 5833, 1019, 28, 51, "Subsubsection"],
Cell[281618, 5863, 1377, 24, 36, "Subsubsection"],
Cell[282998, 5889, 3327, 59, 88, "Subsubtitle"],
Cell[286328, 5950, 795, 11, 48, "Subsubsection"],
Cell[287126, 5963, 1850, 43, 145, "Code"],
Cell[288979, 6008, 113, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[289129, 6015, 6360, 104, 82, "Subsubtitle"],
Cell[295492, 6121, 329, 5, 48, "Subsubsection"],
Cell[295824, 6128, 1377, 24, 36, "Subsubsection"],
Cell[297204, 6154, 3892, 76, 82, "Subsubtitle"],
Cell[301099, 6232, 795, 11, 48, "Subsubsection"],
Cell[301897, 6245, 2591, 65, 145, "Code"],
Cell[304491, 6312, 113, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[304653, 6320, 6250, 106, 74, "Subsubtitle"],
Cell[310906, 6428, 252, 4, 48, "Subsubsection"],
Cell[311161, 6434, 2093, 61, 61, "Subsubsection"],
Cell[313257, 6497, 1368, 24, 36, "Subsubsection"],
Cell[314628, 6523, 5525, 129, 281, "Subsubtitle"],
Cell[320156, 6654, 795, 11, 48, "Subsubsection"],
Cell[320954, 6667, 4480, 125, 215, "Code"],
Cell[325437, 6794, 113, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[325599, 6802, 6154, 98, 53, "Subsubtitle"],
Cell[331756, 6902, 252, 4, 48, "Subsubsection"],
Cell[332011, 6908, 2091, 61, 61, "Subsubsection"],
Cell[334105, 6971, 4309, 67, 41, "Subsubsection"],
Cell[338417, 7040, 5254, 117, 221, "Subsubtitle"],
Cell[343674, 7159, 795, 11, 48, "Subsubsection"],
Cell[344472, 7172, 4401, 114, 250, "Code"],
Cell[348876, 7288, 113, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[349026, 7295, 4555, 82, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[353606, 7381, 6967, 116, 74, "Subsubtitle"],
Cell[360576, 7499, 329, 5, 48, "Subsubsection"],
Cell[360908, 7506, 2062, 40, 51, "Subsubsection"],
Cell[362973, 7548, 1702, 32, 36, "Subsubsection"],
Cell[364678, 7582, 4905, 102, 149, "Subsubtitle"],
Cell[369586, 7686, 795, 11, 48, "Subsubsection"],
Cell[370384, 7699, 4411, 108, 180, "Code"],
Cell[374798, 7809, 113, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[374948, 7816, 6335, 106, 74, "Subsubtitle"],
Cell[381286, 7924, 252, 4, 48, "Subsubsection"],
Cell[381541, 7930, 2091, 61, 61, "Subsubsection"],
Cell[383635, 7993, 4378, 70, 41, "Subsubsection"],
Cell[388016, 8065, 5236, 117, 221, "Subsubtitle"],
Cell[393255, 8184, 795, 11, 48, "Subsubsection"],
Cell[394053, 8197, 4511, 118, 250, "Code"],
Cell[398567, 8317, 113, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[398729, 8325, 6085, 98, 53, "Subsubtitle"],
Cell[404817, 8425, 1195, 17, 35, "Subsubsection"],
Cell[406015, 8444, 4117, 82, 53, "Subsubtitle"],
Cell[410135, 8528, 795, 11, 35, "Subsubsection"],
Cell[410933, 8541, 2893, 71, 104, "Code"],
Cell[413829, 8614, 113, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[413991, 8622, 3559, 59, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[417575, 8685, 5015, 80, 1076, "Subsubtitle"],
Cell[422593, 8767, 196, 3, 692, "Subsubsection"],
Cell[422792, 8772, 545, 16, 737, "Subsubsection"],
Cell[423340, 8790, 989, 14, 475, "Subsubsection"],
Cell[424332, 8806, 2292, 50, 1374, "Subsubtitle"],
Cell[426627, 8858, 795, 11, 692, "Subsubsection"],
Cell[427425, 8871, 1708, 47, 2113, "Code"],
Cell[429136, 8920, 113, 2, 692, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[429286, 8927, 5345, 90, 1076, "Subsubtitle"],
Cell[434634, 9019, 226, 3, 692, "Subsubsection"],
Cell[434863, 9024, 2015, 47, 929, "Subsubsection"],
Cell[436881, 9073, 1114, 19, 510, "Subsubsection"],
Cell[437998, 9094, 3436, 86, 2409, "Subsubtitle"],
Cell[441437, 9182, 795, 11, 692, "Subsubsection"],
Cell[442235, 9195, 3246, 92, 2634, "Code"],
Cell[445484, 9289, 113, 2, 692, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[445646, 9297, 3609, 59, 63, "Subsubtitle"],
Cell[CellGroupData[{
Cell[449280, 9360, 5150, 81, 1282, "Subsubtitle"],
Cell[454433, 9443, 641, 18, 929, "Subsubsection"],
Cell[455077, 9463, 1139, 16, 475, "Subsubsection"],
Cell[456219, 9481, 2748, 49, 1282, "Subsubtitle"],
Cell[458970, 9532, 795, 11, 692, "Subsubsection"],
Cell[459768, 9545, 971, 27, 3144, "Code"],
Cell[460742, 9574, 113, 2, 692, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[460892, 9581, 5224, 83, 1282, "Subsubtitle"],
Cell[466119, 9666, 1220, 18, 692, "Subsubsection"],
Cell[467342, 9686, 689, 18, 737, "Subsubsection"],
Cell[468034, 9706, 1139, 16, 475, "Subsubsection"],
Cell[469176, 9724, 3384, 68, 1282, "Subsubtitle"],
Cell[472563, 9794, 795, 11, 692, "Subsubsection"],
Cell[473361, 9807, 1952, 50, 3670, "Code"],
Cell[475316, 9859, 113, 2, 692, "Subsubsection"]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)